Changeset 11800

Timestamp:

04/29/09 20:55:07 (15 years ago)

Author:

ehuelsmann

Message:

Rewrite aux vars in case of FLET and LABELS too.

File:

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

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

@@ -480 +480 @@
      (let* ((block-name (fdefinition-block-name name))
       (lambda-expression
-       `(lambda ,lambda-list ,@decls (block ,block-name ,@body)))
+                   (maybe-rewrite-aux-vars
+       `(lambda ,lambda-list ,@decls (block ,block-name ,@body))))
       (*visible-variables* *visible-variables*)
       (*local-functions* *local-functions*)
@@ -507 +508 @@
    (multiple-value-bind (body decls) (parse-body body)
      (setf (compiland-lambda-expression compiland)
-     `(lambda ,lambda-list ,@decls (block ,name ,@body))))
+                 (maybe-rewrite-aux-vars
+     `(lambda ,lambda-list ,@decls (block ,name ,@body)))))
    (push variable *all-variables*)
    (push local-function local-functions)))