src/module-impl.lisp: Don't require `finalize-module' to return the module.

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

diff --git a/src/class-layout-impl.lisp b/src/class-layout-impl.lisp
index fb684b74abec93a4e7dd765544008e08b5c22357..8f14e1e011dbc0527e4d6577946f53e50466743d 100644 (file)
--- a/src/class-layout-impl.lisp
+++ b/src/class-layout-impl.lisp
@@ -118,7 +118,7 @@ (defmethod compute-sod-effective-method
                                           :key #'sod-method-message
                                           :test-not #'eql))
                                (sod-class-precedence-list class))))
                                           :key #'sod-method-message
                                           :test-not #'eql))
                                (sod-class-precedence-list class))))

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

                   :message message
                   :class class
                   :direct-methods direct-methods)))
                   :message message
                   :class class
                   :direct-methods direct-methods)))