找到 setf 在 lisp 中执行等效的 fset 的方法。
(symbol-function 'foo)
是elisp 中的广义变量,因此您可以使用:
(setf (symbol-function 'forward-word) #'backward-word)
作为以下方法的替代方法:
(fset 'forward-word #'backward-word)
(作为旁注,当您想要使用动态作用域覆盖函数时,您可以使用 cl-letf
执行相同的操作,以替换已弃用的flet
。