(defun (sb-pcl::class-predicate foo) (x)
"(class-predicate foo) documentation"
x)
(assert (string= (documentation '(setf foo) 'function)
(defun (sb-pcl::class-predicate foo) (x)
"(class-predicate foo) documentation"
x)
(assert (string= (documentation '(setf foo) 'function)