(assert (string= (setf (documentation 'docfoo 'function) "baz") "baz"))
(assert (string= (documentation 'docfoo 'function) "baz"))
(assert (string= (setf (documentation 'docfoo 'function) "baz") "baz"))
(assert (string= (documentation 'docfoo 'function) "baz"))