src/method-impl.lisp (method-keyword-argument-lists): Fix indentation.

diff --git a/src/method-impl.lisp b/src/method-impl.lisp
index 630570b546907edb507274148dba4d4b35fd5693..2300ac68441a9318cac83ac2f4ef9356d3c25fdf 100644 (file)
--- a/src/method-impl.lisp
+++ b/src/method-impl.lisp
@@ -252,15 +252,15 @@ (define-on-demand-slot delegating-direct-method function-type (method)
 (defmethod method-keyword-argument-lists
     ((method effective-method) direct-methods)
   (with-slots (message) method
 (defmethod method-keyword-argument-lists
     ((method effective-method) direct-methods)
   (with-slots (message) method

-     (and (keyword-message-p message)
-         (mapcar (lambda (m)
-                   (let ((type (sod-method-type m)))
-                     (cons (c-function-keywords type)
-                           (format nil "method for ~A on ~A (at ~A)"
-                                   message
-                                   (sod-method-class m)
-                                   (file-location m)))))
-                 direct-methods))))
+    (and (keyword-message-p message)
+        (mapcar (lambda (m)
+                  (let ((type (sod-method-type m)))
+                    (cons (c-function-keywords type)
+                          (format nil "method for ~A on ~A (at ~A)"
+                                  message
+                                  (sod-method-class m)
+                                  (file-location m)))))
+                direct-methods))))

 
 (defmethod shared-initialize :after
     ((method effective-method) slot-names &key direct-methods)
 
 (defmethod shared-initialize :after
     ((method effective-method) slot-names &key direct-methods)