0.9.2.43:
[sbcl.git] / src / code / force-delayed-defbangmethods.lisp
index 11eada3..5142087 100644 (file)
 (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))