Changeset 11807

Timestamp:

04/30/09 06:20:02 (14 years ago)

Author:

ehuelsmann

Message:

Follow-up on r11802: only put declarations which are explicitly about the
argument variables in the lambda and the rest in the LET*; otherwise
we may be declaring variables special before we should.

File:

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

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

@@ -449 +449 @@
               (t
                (push form aux-vars))))
-      (multiple-value-bind (lambda-decls let-decls)
-          (split-decls decls aux-vars)
-        `(lambda ,(subseq lambda-list 0 (position '&AUX lambda-list))
+      (setf lambda-list (subseq lambda-list 0 (position '&AUX lambda-list)))
+      (multiple-value-bind (let-decls lambda-decls)
+          (split-decls decls (lambda-list-names lambda-list))
+        `(lambda ,lambda-list
            ,@lambda-decls
            (let* ,lets