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

It's already correct.  If we change it then there'll be two `master_ap'
arguments when we invoke the method.

diff --git a/src/method-impl.lisp b/src/method-impl.lisp
index 86fd4cd..6508f57 100644 (file)
--- a/src/method-impl.lisp
+++ b/src/method-impl.lisp
@@ -255,9 +255,8 @@
   (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))