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

上面不会使用词法绑定函数。

CL中的fdefiniton和函数（特殊运算符）有什么区别？

1 个答案: