定义和函数(特殊算子)在CL中有什么区别？

Question

因此，我正在阅读quicklisp代码，试图理解它并从中学习。我见过这个宏：

(defmacro neuter-package (name)
      `(eval-when (:compile-toplevel :load-toplevel :execute)
         (let ((definition (fdefinition 'error-unimplemented)))
           (do-external-symbols (symbol ,(string name))
             (unless (fboundp symbol)
               (setf (fdefinition symbol) definition))))))

据我所知，fdefinition和function(#')之间唯一的区别是fdefinition是setf-able。我说的对吗？如果是的话，省略let部分并将setf改为

(setf (fdefinition symbol) #'error-unimplemented)

Answer 1

FDEFINITION是一个函数。FUNCTION是一种特殊的运算符。因此，FDEFINITION获得一个计算过的参数。

(setf (fdefinition symbol) #'error-unimplemented)

上面的意思是将全局函数定义设置为函数ERROR-UNIMPLEMENTED。它也可以是具有该名称的词法绑定函数。

(flet ((error-unimplemented (...) ...))
  (neuter-package "FOO"))

上面将使用词汇绑定函数。

还请注意，在某些情况下，Lisp编译器可能假定使用了特定的当前函数ERROR-UNIMPLEMENTED。例如，对于内联或没有查找的调用。

但代码使用的是FDEFINITION**.**

(setf (fdefinition symbol) (fdefinition 'error-unimplemented))

上面将查找它的运行时，来自符号的全局函数.

(flet ((error-unimplemented (...) ...))
  (neuter-package "FOO"))

以上将不使用词汇绑定函数。