X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fdefboot.lisp;h=4147b0eabcd0b7f6b5c5ddf7c3c177e2ee42180d;hb=77d7fddb855305e783c100bfe9b6b46bdb05e4b6;hp=13d06188efcfa8b792fb9e500406190a352e7852;hpb=55dc8558f0686a9d1c8e7f8025bfe373b0c35e33;p=sbcl.git

diff --git a/src/code/defboot.lisp b/src/code/defboot.lisp
index 13d0618..4147b0e 100644
--- a/src/code/defboot.lisp
+++ b/src/code/defboot.lisp
@@ -231,18 +231,9 @@ evaluated as a PROGN."
 
   (sb!c::note-name-defined name :function)
 
-  ;; FIXME: I want to do this here (and fix bug 137), but until the
-  ;; breathtaking CMU CL function name architecture is converted into
-  ;; 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)
-    #!+sb-eval
-    (when (typep def 'sb!eval:interpreted-function)
-      (setf (sb!eval:interpreted-function-documentation def)
-            doc)))
+    (setf (%fun-doc def) doc))
+
   name)
 
 ;;;; DEFVAR and DEFPARAMETER