Changeset 11800
- Timestamp:
- 04/29/09 20:55:07 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/src/org/armedbear/lisp/compiler-pass1.lisp
r11798 r11800 480 480 (let* ((block-name (fdefinition-block-name name)) 481 481 (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)))) 483 484 (*visible-variables* *visible-variables*) 484 485 (*local-functions* *local-functions*) … … 507 508 (multiple-value-bind (body decls) (parse-body body) 508 509 (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))))) 510 512 (push variable *all-variables*) 511 513 (push local-function local-functions)))
Note: See TracChangeset
for help on using the changeset viewer.