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

diff --git a/src/code/force-delayed-defbangmethods.lisp b/src/code/force-delayed-defbangmethods.lisp
index ab9bd87..5142087 100644
--- a/src/code/force-delayed-defbangmethods.lisp
+++ b/src/code/force-delayed-defbangmethods.lisp
@@ -7,26 +7,23 @@
 ;;;; provided with absolutely no warranty. See the COPYING and CREDITS
 ;;;; files for more information.
 
-(in-package "SB-IMPL")
-
-(file-comment
-  "$Header$")
+(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))