在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函数创建别名？