在通用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))