Plaster

CL-USER> (defun foo () 42) FOO CL-USER> (setf (documentation 'foo 'function) "aaa") "aaa" CL-USER> (documentation #'foo 't) "aaa" CL-USER> (documentation #'foo 'function) "aaa"