![](https://secure.gravatar.com/avatar/f9d4fecb800cfd76bc2a0d5f30e11f0f.jpg?s=120&d=mm&r=g)
5 Apr
2008
5 Apr
'08
3:05 p.m.
Oops, I left off the actual test result: Test DEFCFUN.VARARGS.DOCSTRINGS failed Form: (DOCUMENTATION 'SPRINTF 'FUNCTION) Expected value: "sprintf docstring" Actual value: NIL. Also: $ clisp -q -norc [1]> (setf (documentation 'bozo 'function) "bozo docstring") NIL [2]> (documentation 'bozo 'function) NIL [3]> (defun foo (a b) "foo docstring" (+ a b)) FOO [4]> (documentation 'foo 'function) "foo docstring" [5]> (setf (documentation 'foo 'function) "changed foo docstring") "changed foo docstring" [6]> (documentation 'foo 'function) "changed foo docstring" [7]> -- Barry Fishman