对函数槽的写访问（除了定义）[重复]

Question

defun 宏在符号的函数 slot 中“存储”了一个函数 object，例如：

(defun f () "Hello.")
打印“Hello”的函数现在存储在符号f的函数槽中。
（可以通过#'f检索。）

是否有另一种方法（defun 除外）在符号的函数槽中写入/“存储”函数对象？

因为像 (setf minus #'-) 这样的东西只会将函数对象存储在符号 minus 的 value 槽中。

Answer 1

还有其他方式（除了defun）在符号的函数槽中写入/“存储”函数对象吗？

你可以使用symbol-function:

(setf (symbol-function 'f) (lambda () "Bye."))
(f)  ; => "Bye."
(defun g () "Hello again.")
(setf (symbol-function 'f) (symbol-function 'g))
(f)  ; => "Hello again."

另一种可能是使用fdefinition:

(setf (fdefinition 'f) (lambda () "Bye again.")
(f)  ; => "By again"

它们几乎是等价的。主要区别在于symbol-function 需要一个必须是符号的参数，而fdefinition 接受一个函数名，它也可以是一个列表（参见glossary）。