Changeset 11850

Timestamp:

05/09/09 18:33:32 (14 years ago)

Author:

ehuelsmann

Message:

p1-lambda: Rewrite the lambda list before bailing out,
instead of bailing out before rewriting.
This resolves compiler errors in LAMBDA.* ANSI tests.

File:

• trunk/abcl/src/org/armedbear/lisp/compiler-pass1.lisp (modified) (2 diffs)

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

@@ -702 +702 @@
 
 (defun p1-lambda (form)
+  (setf form (rewrite-lambda form))
   (let* ((lambda-list (cadr form)))
     (when (or (memq '&optional lambda-list)
@@ -714 +715 @@
                    (compiler-unsupported
                     "P1-LAMBDA: can't handle optional argument with non-constant initform.")))))))
-    (p1-function (list 'FUNCTION
-                        (rewrite-lambda form)))))
+    (p1-function (list 'FUNCTION form))))
 
 (defun p1-eval-when (form)