Changeset 11803

Timestamp:

04/29/09 21:57:23 (14 years ago)

Author:

ehuelsmann

Message:

Always rewrite &aux vars, even if there are no
vars after &aux: the compiler plainly doesn't
want to see &aux in the lambda list.

File:

• trunk/abcl/src/org/armedbear/lisp/compiler-pass1.lisp (modified) (1 diff)

trunk/abcl/src/org/armedbear/lisp/compiler-pass1.lisp

@@ -447 +447 @@
 (defun rewrite-aux-vars (form)
   (let* ((lambda-list (cadr form))
-         (lets (cdr (memq '&AUX lambda-list)))
+         (aux-p (memq '&AUX lambda-list))
+         (lets (cdr aux-p))
          aux-vars)
-    (unless lets
+    (unless aux-p
       ;; no rewriting required
       (return-from rewrite-aux-vars form))