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

[Erik Huelsmann]

Author: ehuelsmann
Date: Wed Apr 29 17:45:25 2009
New Revision: 11801

Log:
Compensate for the fact that we're no longer
rewriting &aux vars before entering maybe-rewrite-lambda.

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

Modified: trunk/abcl/src/org/armedbear/lisp/precompiler.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/precompiler.lisp	(original)
+++ trunk/abcl/src/org/armedbear/lisp/precompiler.lisp	Wed Apr 29 17:45:25 2009
@@ -563,7 +563,9 @@
                     (non-constants 0))
           (do* ((vars lambda-list (cdr vars))
                 (var (car vars) (car vars)))
-               ((or (endp vars) (eq '&aux (car vars))))
+               ((or (endp vars) (eq '&aux (car vars)))
+                (setf new-lambda-list
+                      (append (reverse vars) new-lambda-list)))
             (push (car vars) new-lambda-list)
             (let ((replacement (gensym)))
               (flet ((parse-compound-argument (arg)