在 common lisp 中命名为 lambda答案

【问题标题】：Named lambda in common lisp在 common lisp 中命名为 lambda
【发布时间】：2015-01-17 15:11:37
【问题描述】：

我需要写一个递归辅助函数，不需要给它全局作用域，但是我需要引用它来实现递归。

Emacs lisp 有fset，它分配给符号的功能单元。 common lisp 中的等价物是什么？

【问题讨论】：

我可以将 lambda 函数分配给一个符号，然后 (funcall ) 那个符号，但必须有更漂亮的方法。
查看标签：ai.mit.edu/projects/iiip/doc/CommonLISP/HyperSpec/Body/…

【解决方案1】：

我刚刚发现这是一个常见的用法，可以在alexandria 中使用。来自亚历山大代码：

(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))

【讨论】：

P.S.我只是想为 Lars Brinkhoff 的回答添加一个示例。

【解决方案2】：

恶意软件说了什么。

或者如果你真的需要一个命名的 lambda：

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

【讨论】：