Changeset 11801

Timestamp:

04/29/09 21:45:25 (14 years ago)

Author:

ehuelsmann

Message:

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

File:

• trunk/abcl/src/org/armedbear/lisp/precompiler.lisp (modified) (1 diff)

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

@@ -564 +564 @@
           (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)))