(defmethod documentation ((x list) (doc-type (eql 'function)))
;; FIXME: could test harder to see whether it's a SETF function name,
;; then call WARN
(when (eq (first x) 'setf) ; Give up if not a setf function name.
(defmethod documentation ((x list) (doc-type (eql 'function)))
;; FIXME: could test harder to see whether it's a SETF function name,
;; then call WARN
(when (eq (first x) 'setf) ; Give up if not a setf function name.