X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fforce-delayed-defbangmethods.lisp;h=51420870ac8b1ac6af6e23b89e3d94997a13bbf4;hb=672b2f6cb751566526c7f3bb3de6b7d8424760e2;hp=11eada3cee4a2b064d6dcdb94f68d79c239c200d;hpb=e88f9c7fd830938e1261cc424437905fb50179ae;p=sbcl.git

diff --git a/src/code/force-delayed-defbangmethods.lisp b/src/code/force-delayed-defbangmethods.lisp
index 11eada3..5142087 100644
--- a/src/code/force-delayed-defbangmethods.lisp
+++ b/src/code/force-delayed-defbangmethods.lisp
@@ -10,20 +10,20 @@
 (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))