I do not fully understand the usage of setf in defun:

(defun cookies-out* (&optional (reply *reply*))
"Returns an alist of the outgoing cookies associated with the REPLY object REPLY."
    (cookies-out reply))

(defun (setf cookies-out*) (new-value &optional (reply *reply*))
"Sets the alist of the outgoing cookies associated with the REPLY object REPLY."
    (setf (cookies-out reply) new-value))

I suppose it redefines the function #'cookies-out*, does it not? If so, then #'cookies-out* will be a polymorphic function.

common-lisp
Edit
Report