Changeset 11850


Ignore:
Timestamp:
05/09/09 18:33:32 (13 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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/compiler-pass1.lisp

    r11849 r11850  
    702702
    703703(defun p1-lambda (form)
     704  (setf form (rewrite-lambda form))
    704705  (let* ((lambda-list (cadr form)))
    705706    (when (or (memq '&optional lambda-list)
     
    714715                   (compiler-unsupported
    715716                    "P1-LAMBDA: can't handle optional argument with non-constant initform.")))))))
    716     (p1-function (list 'FUNCTION
    717                         (rewrite-lambda form)))))
     717    (p1-function (list 'FUNCTION form))))
    718718
    719719(defun p1-eval-when (form)
Note: See TracChangeset for help on using the changeset viewer.