在通用lisp中命名lambda

Question

我需要編寫一個遞歸輔助函數，並且不需要給它全局範圍，但我需要引用它來實現遞歸。

Emacs lisp有fset，它分配給符號的函數單元。通用lisp中的等價物是什麼？

Answer 1

我才發現，這是很常見是在alexandria一個idion。從亞歷山大代碼：

(defmacro named-lambda (name lambda-list &body body) 
    "Expands into a lambda-expression within whose BODY NAME denotes the corresponding function." 
    `(labels ((,name ,lambda-list ,@body)) 
#',name)) 

下面是一個使用〔實施例：

(let ((! ;; Everything can be a symbol :D 
    ;; Definition here 
    (named-lambda self (n) 
     (case n 
      (1 1) 
      (otherwise (* n 
       (self (1- n)))))))) ;; Recurse here 
    ;; How to call it 
    (funcall ! 6)) 

Answer 2

什麼malisper說。

或者，如果你真的需要一個名爲拉姆達：

(defmacro named-lambda (name args &body body) 
    `(labels ((,name ,args ,@body)) 
    #',name))