alias Définition des fonctions de SETF en Common Lisp

Question

Selon this question, un alias à une fonction peut être créé comme si:

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

Mais:

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

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

L'alias est pas créé pour le setf fonction. Comment un alias peut-il être créé pour une fonction setf?

Answer 1

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