在 Common Lisp 中为 setf 函数定义别名答案

【问题标题】：Defining aliases for setf functions in Common Lisp在 Common Lisp 中为 setf 函数定义别名
【发布时间】：2017-06-20 01:04:47
【问题描述】：

根据this question，可以像这样创建函数的别名：

(defun some-function () ...)
(setf (fdefinition 'sfunc) #'some-function)

但是：

(defun some-function () ...)
(defun (setf some-function) () ...)
(setf (fdefinition 'sfunc) #'some-function)

> (setf (sfunc) ...)
; caught STYLE-WARNING:
;   undefined function: (SETF SFUNC)

没有为 setf 函数创建别名。如何为 setf 函数创建别名？

【问题讨论】：

标签： common-lisp

【解决方案1】：

(setf (fdefinition '(setf sfunc)) (fdefinition '(setf some-function)))

【讨论】：