[armedbear-cvs] r14164 - trunk/abcl/src/org/armedbear/lisp

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Thu Oct  4 11:57:54 2012
New Revision: 14164

Log:
Fix CL-ROUTES (ROUTES system) regression by fixing
   DEFMETHOD &AUX parameters to be no longer ignored.

Modified:
   trunk/abcl/src/org/armedbear/lisp/clos.lisp

Modified: trunk/abcl/src/org/armedbear/lisp/clos.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/clos.lisp	Wed Oct  3 15:01:47 2012	(r14163)
+++ trunk/abcl/src/org/armedbear/lisp/clos.lisp	Thu Oct  4 11:57:54 2012	(r14164)
@@ -1983,7 +1983,7 @@
              (setq allow-other-keys 't))
             (&aux
              ;; &aux comes last; any other previous state is fine
-             (setq state :parsing-aux)))
+             (setq state '&aux)))
           (case state
             (:required
              (push-on-end arg required-args)