是否将当前延续的Scheme调用转换为Common Lisp?

我正在将一些Scheme代码转换为Common Lisp。我不知道Scheme。我知道一点Common Lisp。

以下是方案代码:

(define (with-process-abortion thunk)
    (call-with-current-continuation
        (lambda (k)
            (fluid-let ((*abort-process* k))
                (thunk)))))

我读了一些关于计划的书 call-with-current-continuation 但是,老实说,我不知道上面的函数在做什么。目前,我对Common Lisp的转换非常简陋:

(defun with-process-abortion (thunk)
    ;; No idea how to implement
    )

This SO post 说:

每次出现call/cc都可以替换为以下内容 等效值:

(λ(f k)(fλ(v k0)(k v))

其中k是要保存的延续,(λ(v k0)(k v))是 恢复此延续的转义过程(无论是什么 调用时处于活动状态的延续k0将被丢弃)。

好吧,什么会 f 符合我的情况?什么会 k 对应于?