src/method-impl.lisp: Don't mangle `ap' name in `basic-argument-names'.

[sod] / src / method-impl.lisp

diff --git a/src/method-impl.lisp b/src/method-impl.lisp
index 86fd4cd8ae341ebf61365e6112cec52f3061cdfd..6508f5717c487bf10f7c01b4438d546382f7ad39 100644 (file)
--- a/src/method-impl.lisp
+++ b/src/method-impl.lisp
@@ -255,9 +255,8 @@ (defmethod slot-unbound (class
   (declare (ignore class))
   (let ((message (effective-method-message method)))
     (setf (slot-value method 'basic-argument-names)
   (declare (ignore class))
   (let ((message (effective-method-message method)))
     (setf (slot-value method 'basic-argument-names)

-         (subst *sod-master-ap* *sod-ap*
-                (mapcar #'argument-name
-                        (sod-message-no-varargs-tail message))))))
+         (mapcar #'argument-name
+                 (sod-message-no-varargs-tail message)))))

 
 (defmethod effective-method-function-name ((method effective-method))
   (let* ((class (effective-method-class method))
 
 (defmethod effective-method-function-name ((method effective-method))
   (let* ((class (effective-method-class method))