將Scheme調用與當前繼續轉換爲Common Lisp？

Question

我正在將一些Scheme代碼轉換爲Common Lisp。我不知道計劃。我知道一點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說：

通話的每次出現/立方厘米可與以下 等價物來替換：

（拉姆達（ fk）（f（lambda（v k0）（kv））k））

其中k是要保存的延續，並且（lambda（v k0）（kv））是 escap e恢復此延續的程序（不管 延續k0在被調用時處於活動狀態，都將被丟棄）。

好吧，f對應於我的情況？ k對應什麼？

Answer 1

您無法解決這個問題，因爲Common Lisp沒有call/cc或任何實現「完全延續」的內容。但是，您可能會轉換此代碼，因爲看來Scheme實現僅針對非本地出口使用call/cc，Common Lisp支持catch和throw以及重新啓動。

你可以嘗試用

`(catch 'wpa #,thunk) 

更換的(with-process-abortion thunk)一個用途，並與(throw 'wpa nil)