src/: Yet more naming and export twiddles.

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

diff --git a/src/class-layout-impl.lisp b/src/class-layout-impl.lisp
index fb684b7..8f14e1e 100644 (file)
--- a/src/class-layout-impl.lisp
+++ b/src/class-layout-impl.lisp
@@ -118,7 +118,7 @@
                                           :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)))