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

[Erik Huelsmann]

Author: ehuelsmann
Date: Wed Apr 29 17:57:23 2009
New Revision: 11803

Log:
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.

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

Modified: trunk/abcl/src/org/armedbear/lisp/compiler-pass1.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/compiler-pass1.lisp	(original)
+++ trunk/abcl/src/org/armedbear/lisp/compiler-pass1.lisp	Wed Apr 29 17:57:23 2009
@@ -446,9 +446,10 @@
 
 (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))
     (multiple-value-bind (body decls)