在Common Lisp的SETF功能定義別名

Question

根據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函數創建別名？

Answer 1

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