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

diff --git a/src/code/defboot.lisp b/src/code/defboot.lisp
index 9dc6d46..dc5536e 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
@@ -330,16 +334,6 @@
                 (declare (type unsigned-byte ,var))
                 ,@body)))))
 
-(defun filter-dolist-declarations (decls)
-  (mapcar (lambda (decl)
-            `(declare ,@(remove-if
-                         (lambda (clause)
-                           (and (consp clause)
-                                (or (eq (car clause) 'type)
-                                    (eq (car clause) 'ignore))))
-                         (cdr decl))))
-          decls))
-
 (defmacro-mundanely dolist ((var list &optional (result nil)) &body body)
   ;; We repeatedly bind the var instead of setting it so that we never
   ;; have to give the var an arbitrary value such as NIL (which might