X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fdefboot.lisp;h=964639f82db8e1c99b44c3e21007cc13e0674650;hb=15d6e7c9a2c3234f95dfe278046fa2fee1b0c007;hp=a9cfbf765110b38021e6f7bb3a3ce102616573b2;hpb=e1cf2466998905e8e19e14cae6e478861ffd04ee;p=sbcl.git diff --git a/src/code/defboot.lisp b/src/code/defboot.lisp index a9cfbf7..964639f 100644 --- a/src/code/defboot.lisp +++ b/src/code/defboot.lisp @@ -212,7 +212,7 @@ ;; something sane, (1) doing so doesn't really fix the bug, and ;; (2) doing probably isn't even really safe. #+nil (setf (%fun-name def) name) - + (when doc (setf (fdocumentation name 'function) doc)) name)