X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fdefboot.lisp;h=a5e7ba0eed44a0e01978e45157b89714c811c01a;hb=970dd272dc84f7420252eadb4829cc193f795716;hp=9dc6d4616bbeb2fb85ec4b1d1b0c85e6b4a05555;hpb=07d11082f85d635148bfef93b3795b6c90dc7eca;p=sbcl.git

diff --git a/src/code/defboot.lisp b/src/code/defboot.lisp
index 9dc6d46..a5e7ba0 100644
--- a/src/code/defboot.lisp
+++ b/src/code/defboot.lisp
@@ -224,7 +224,11 @@
   #+nil (setf (%fun-name def) name)
 
   (when doc
-    (setf (fdocumentation name 'function) doc))
+    (setf (fdocumentation name 'function) doc)
+    #!+sb-eval
+    (when (typep def 'sb!eval:interpreted-function)
+      (setf (sb!eval:interpreted-function-documentation def)
+            doc)))
   name)
 
 ;;;; DEFVAR and DEFPARAMETER