common-lisp - 在普通的 lisp 中命名为 lambda

Question

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

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

Answer 1

我刚刚发现这是一个足够常见的 idion，可以出现在 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))