src/class-finalize-impl.lisp (check-sod-class): Fix indentation.

A lot of it was two spaces further over than it should have been.

diff --git a/src/class-finalize-impl.lisp b/src/class-finalize-impl.lisp
index e7fc45a..4696a0a 100644 (file)
--- a/src/class-finalize-impl.lisp
+++ b/src/class-finalize-impl.lisp
@@ -378,56 +378,56 @@
                                        what (funcall namefunc item) class)
                 (simple-previous previous))))
 
-       ;; Make sure direct slots have distinct names.
-       (check-list (sod-class-slots class) #'sod-slot-name
-                   (simple-complain "slot name" #'sod-slot-name))
-
-       ;; Make sure there's at most one initializer for each slot.
-       (flet ((check-initializer-list (list kind)
-                (check-list list #'sod-initializer-slot
-                            (lambda (initializer previous)
-                              (let ((slot
-                                     (sod-initializer-slot initializer)))
-                                (cerror*-with-location initializer
-                                                       "Duplicate ~
-                                                        initializer for ~
-                                                        ~A slot `~A' ~
-                                                        in class `~A'"
-                                                       kind slot class)
-                                (simple-previous previous))))))
-         (check-initializer-list (sod-class-instance-initializers class)
-                                 "instance")
-         (check-initializer-list (sod-class-class-initializers class)
-                                 "class"))
-
-       ;; Make sure messages have distinct names.
-       (check-list (sod-class-messages class) #'sod-message-name
-                   (simple-complain "message name" #'sod-message-name))
-
-       ;; Make sure methods are sufficiently distinct.
-       (check-list (sod-class-methods class) #'sod-method-function-name
-                   (lambda (method previous)
-                     (cerror*-with-location method
-                                            "Duplicate ~A direct method ~
-                                             for message `~A' ~
-                                             in classs `~A'"
-                                            (sod-method-description method)
-                                            (sod-method-message method)
-                                            class)
-                     (simple-previous previous)))
-
-       ;; Make sure superclasses have distinct nicknames.
-       (let ((state (make-inheritance-path-reporter-state class)))
-         (check-list (sod-class-precedence-list class) #'sod-class-nickname
-                     (lambda (super previous)
-                       (cerror*-with-location class
-                                              "Duplicate nickname `~A' ~
-                                               in superclasses of `~A': ~
-                                               used by `~A' and `~A'"
-                                              (sod-class-nickname super)
-                                              class super previous)
-                       (report-inheritance-path state super)
-                       (report-inheritance-path state previous)))))
+      ;; Make sure direct slots have distinct names.
+      (check-list (sod-class-slots class) #'sod-slot-name
+                 (simple-complain "slot name" #'sod-slot-name))
+
+      ;; Make sure there's at most one initializer for each slot.
+      (flet ((check-initializer-list (list kind)
+              (check-list list #'sod-initializer-slot
+                          (lambda (initializer previous)
+                            (let ((slot
+                                   (sod-initializer-slot initializer)))
+                              (cerror*-with-location initializer
+                                                     "Duplicate ~
+                                                      initializer for ~
+                                                      ~A slot `~A' ~
+                                                      in class `~A'"
+                                                     kind slot class)
+                              (simple-previous previous))))))
+       (check-initializer-list (sod-class-instance-initializers class)
+                               "instance")
+       (check-initializer-list (sod-class-class-initializers class)
+                               "class"))
+
+      ;; Make sure messages have distinct names.
+      (check-list (sod-class-messages class) #'sod-message-name
+                 (simple-complain "message name" #'sod-message-name))
+
+      ;; Make sure methods are sufficiently distinct.
+      (check-list (sod-class-methods class) #'sod-method-function-name
+                 (lambda (method previous)
+                   (cerror*-with-location method
+                                          "Duplicate ~A direct method ~
+                                           for message `~A' ~
+                                           in classs `~A'"
+                                          (sod-method-description method)
+                                          (sod-method-message method)
+                                          class)
+                   (simple-previous previous)))
+
+      ;; Make sure superclasses have distinct nicknames.
+      (let ((state (make-inheritance-path-reporter-state class)))
+       (check-list (sod-class-precedence-list class) #'sod-class-nickname
+                   (lambda (super previous)
+                     (cerror*-with-location class
+                                            "Duplicate nickname `~A' ~
+                                             in superclasses of `~A': ~
+                                             used by `~A' and `~A'"
+                                            (sod-class-nickname super)
+                                            class super previous)
+                     (report-inheritance-path state super)
+                     (report-inheritance-path state previous)))))
 
     ;; Check that the CHAIN-TO class is actually a proper superclass.  (This
     ;; eliminates hairy things like a class being its own link.)