(declare (type component component))
(aver (every (lambda (x)
(eq (functional-kind x) :deleted))
- (component-new-functions component)))
- (setf (component-new-functions component) ())
+ (component-new-funs component)))
+ (setf (component-new-funs component) ())
(dolist (fun (component-lambdas component))
(reinit-lambda-physenv fun))
(dolist (fun (component-lambdas component))
;;; mysterious reason here) it's important to set up bottomed-out-here
;;; environments before anything else. -- WHN 2001-09-30
(defun preallocate-physenvs-for-toplevelish-lambdas (component)
+ (/show "entering PREALLOCATE-PHYSENVS-FOR-TOPLEVELISH-LAMDBAS" component)
(dolist (clambda (component-lambdas component))
+ (/show clambda (lambda-vars clambda) (lambda-toplevelish-p clambda))
(when (lambda-toplevelish-p clambda)
(compute-closure clambda)))
+ (/show "leaving PREALLOCATE-PHYSENVS-FOR-TOPLEVELISH-LAMDBAS" component)
(values))
;;; If CLAMBDA has a PHYSENV , return it, otherwise assign an empty one.
(let ((old (lambda-physenv (lambda-home fun))))
(cond (old
(setf (physenv-closure old)
- (delete-if #'(lambda (x)
- (and (lambda-var-p x)
- (null (leaf-refs x))))
+ (delete-if (lambda (x)
+ (and (lambda-var-p x)
+ (null (leaf-refs x))))
(physenv-closure old)))
(flet ((clear (fun)
(dolist (var (lambda-vars fun))
(unless (lambda-var-sets var)
(setf (lambda-var-indirect var) nil)))))
(clear fun)
- (dolist (let (lambda-lets fun))
- (clear let))))
+ (map nil #'clear (lambda-lets fun))))
(t
(get-lambda-physenv fun))))
(values))
(block-last block1)
`(progn ,@(code)))
(dolist (fun (reanalyze-funs))
- (local-call-analyze-1 fun)))))
+ (locall-analyze-fun-1 fun)))))
(values))