definieren Aliase für setf Funktionen in Common Lisp

Question

Nach this question, ein Alias ​​für eine Funktion kann wie so erstellt werden:

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

Aber:

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

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

Der Alias ​​ist nicht für das setf erstellt Funktion. Wie kann ein Alias ​​für eine setf-Funktion erstellt werden?

Answer 1

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