src/: Style cleanup: use constant names for types where available.

[sod] / src / class-layout-impl.lisp

diff --git a/src/class-layout-impl.lisp b/src/class-layout-impl.lisp
index 1af591db2f50b918b0e406afafac2e321bb986f2..3779a69e013a1ef45e36e174ea8878bbb3936745 100644 (file)
--- a/src/class-layout-impl.lisp
+++ b/src/class-layout-impl.lisp
@@ -117,7 +117,7 @@ (defmethod compute-sod-effective-method
                                           (sod-class-methods super)
                                           :key #'sod-method-message
                                           :test-not #'eql))
                                           (sod-class-methods super)
                                           :key #'sod-method-message
                                           :test-not #'eql))

-                               (sod-class-precedence-list class))))
+                                (sod-class-precedence-list class))))

     (make-instance (sod-message-effective-method-class message)
                   :message message
                   :class class
     (make-instance (sod-message-effective-method-class message)
                   :message message
                   :class class