Changeset 11800


Ignore:
Timestamp:
04/29/09 20:55:07 (15 years ago)
Author:
ehuelsmann
Message:

Rewrite aux vars in case of FLET and LABELS too.

File:
1 edited

Legend:

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

    r11798 r11800  
    480480     (let* ((block-name (fdefinition-block-name name))
    481481      (lambda-expression
    482        `(lambda ,lambda-list ,@decls (block ,block-name ,@body)))
     482                   (maybe-rewrite-aux-vars
     483       `(lambda ,lambda-list ,@decls (block ,block-name ,@body))))
    483484      (*visible-variables* *visible-variables*)
    484485      (*local-functions* *local-functions*)
     
    507508   (multiple-value-bind (body decls) (parse-body body)
    508509     (setf (compiland-lambda-expression compiland)
    509      `(lambda ,lambda-list ,@decls (block ,name ,@body))))
     510                 (maybe-rewrite-aux-vars
     511     `(lambda ,lambda-list ,@decls (block ,name ,@body)))))
    510512   (push variable *all-variables*)
    511513   (push local-function local-functions)))
Note: See TracChangeset for help on using the changeset viewer.