(when (eq (first x) 'setf) ; Give up if not a setf function name.
(or (values (sb-int:info :setf :documentation (second x)))
;; Try the pcl function documentation.
(when (eq (first x) 'setf) ; Give up if not a setf function name.
(or (values (sb-int:info :setf :documentation (second x)))
;; Try the pcl function documentation.