X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fforce-delayed-defbangmethods.lisp;h=51420870ac8b1ac6af6e23b89e3d94997a13bbf4;hb=7230b50bc438a7fbebd93866a96f9291e630419f;hp=2c647574b0a3041fe9cbc514a130d367ee665fee;hpb=cea4896b2482b7b2b429c1631d774b4cfbc0efba;p=sbcl.git

diff --git a/src/code/force-delayed-defbangmethods.lisp b/src/code/force-delayed-defbangmethods.lisp
index 2c64757..5142087 100644
--- a/src/code/force-delayed-defbangmethods.lisp
+++ b/src/code/force-delayed-defbangmethods.lisp
@@ -7,23 +7,23 @@
 ;;;; provided with absolutely no warranty. See the COPYING and CREDITS
 ;;;; files for more information.
 
-(in-package "SB-IMPL")
+(in-package "SB-IMPL") ;(SB-IMPL, not SB!IMPL, since we're built in warm load.)
 
 (macrolet ((force-delayed-def!methods ()
-	     `(progn
-		,@(mapcar (lambda (args)
-			    `(progn
-			       #+sb-show
-			       (format t
-				       "~&/about to do ~S~%"
-				       '(defmethod ,@args))
-			       (defmethod ,@args)
-			       #+sb-show
-			       (format t
-				       "~&/done with DEFMETHOD ~S~%"
-				       ',(first args))))
-			  *delayed-def!method-args*)
-		(defmacro def!method (&rest args) `(defmethod ,@args))
-		;; We're no longer needed, ordinary DEFMETHOD is enough now.
-		(makunbound '*delayed-def!method-args*))))
+             `(progn
+                ,@(mapcar (lambda (args)
+                            `(progn
+                               #+sb-show
+                               (format t
+                                       "~&/about to do ~S~%"
+                                       '(defmethod ,@args))
+                               (defmethod ,@args)
+                               #+sb-show
+                               (format t
+                                       "~&/done with DEFMETHOD ~S~%"
+                                       ',(first args))))
+                          *delayed-def!method-args*)
+                (defmacro def!method (&rest args) `(defmethod ,@args))
+                ;; We're no longer needed, ordinary DEFMETHOD is enough now.
+                (makunbound '*delayed-def!method-args*))))
   (force-delayed-def!methods))