src/module-parse.lisp (code): Hoist complex sub-items out of main parser.

[sod] / src / method-impl.lisp

diff --git a/src/method-impl.lisp b/src/method-impl.lisp
index 7fdceb1d552e6d94bab39499b8fa7bfa3df24915..f2d71aa330f950ad213a8887bf8b49bb33cbd7ae 100644 (file)
--- a/src/method-impl.lisp
+++ b/src/method-impl.lisp
@@ -291,7 +291,7 @@ (defmethod shared-initialize :after
 
 (export '(basic-effective-method
          effective-method-around-methods effective-method-before-methods
 
 (export '(basic-effective-method
          effective-method-around-methods effective-method-before-methods

-         effective-method-after-methods))
+         effective-method-after-methods effective-method-functions))

 (defclass basic-effective-method (effective-method)
   ((around-methods :initarg :around-methods :initform nil
                   :type list :reader effective-method-around-methods)
 (defclass basic-effective-method (effective-method)
   ((around-methods :initarg :around-methods :initform nil
                   :type list :reader effective-method-around-methods)