X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fdefboot.lisp;h=964639f82db8e1c99b44c3e21007cc13e0674650;hb=15d6e7c9a2c3234f95dfe278046fa2fee1b0c007;hp=79eb7226c274f66ad075e99fbd8e91555273d920;hpb=befd268d09043f37545713b999850df4435170d9;p=sbcl.git

diff --git a/src/code/defboot.lisp b/src/code/defboot.lisp
index 79eb722..964639f 100644
--- a/src/code/defboot.lisp
+++ b/src/code/defboot.lisp
@@ -184,7 +184,7 @@
 	 (cold-fset ,name ,lambda)
 
 	 (eval-when (:compile-toplevel)
-	   (sb!c:%compiler-defun ',name ',inline-lambda))
+	   (sb!c:%compiler-defun ',name ',inline-lambda t))
 	 (eval-when (:load-toplevel :execute)
 	   (%defun ',name
 		   ;; In normal compilation (not for cold load) this is
@@ -201,7 +201,7 @@
   (declare (type function def))
   (declare (type (or null simple-string) doc))
   (aver (legal-fun-name-p name)) ; should've been checked by DEFMACRO DEFUN
-  (sb!c:%compiler-defun name inline-lambda)
+  (sb!c:%compiler-defun name inline-lambda nil)
   (when (fboundp name)
     (/show0 "redefining NAME in %DEFUN")
     (style-warn "redefining ~S in DEFUN" name))
@@ -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)