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

[sod] / src / parser / parser-expr-impl.lisp

diff --git a/src/parser/parser-expr-impl.lisp b/src/parser/parser-expr-impl.lisp
index 89b0f588e47101ac4def04685273cf3e883633fc..e0c681b700420a3915e6bf22dc67c4aaa34f3c51 100644 (file)
--- a/src/parser/parser-expr-impl.lisp
+++ b/src/parser/parser-expr-impl.lisp
@@ -165,9 +165,11 @@ (defmethod apply-operator
     (cerror* "Parse error: missing `~A'" tag)))
 
 (defmethod operator-push-action (left (right open-parenthesis))
     (cerror* "Parse error: missing `~A'" tag)))
 
 (defmethod operator-push-action (left (right open-parenthesis))

+  (declare (ignore left))

   :push)
 
 (defmethod operator-push-action ((left open-parenthesis) right)
   :push)
 
 (defmethod operator-push-action ((left open-parenthesis) right)

+  (declare (ignore right))

   :push)
 
 ;;;--------------------------------------------------------------------------
   :push)
 
 ;;;--------------------------------------------------------------------------