diff --git a/compiler/envanal.lisp b/compiler/envanal.lisp index 1293c9fb1cba9ce4157d39e4fdf7db7822499df8..ae256a1f7fc58c1272416bf8b1a37e9400b73cdd 100644 --- a/compiler/envanal.lisp +++ b/compiler/envanal.lisp @@ -67,15 +67,15 @@ ;;; PRE-ENVIRONMENT-ANALYZE-TOP-LEVEL -- Interface ;;; -;;; Called on top-level components before the compilation of the associated -;;; non-top-level code to detect closed over top-level variables. We just do -;;; COMPUTE-CLOSURE on all the lambdas. This will pre-allocate environments -;;; for all the functions with closed-over top-level variables. The post-pass -;;; will use the existing structure, rather than allocating a new one. +;;; Called on component with top-level lambdas before the compilation of the +;;; associated non-top-level code to detect closed over top-level variables. +;;; We just do COMPUTE-CLOSURE on all the lambdas. This will pre-allocate +;;; environments for all the functions with closed-over top-level variables. +;;; The post-pass will use the existing structure, rather than allocating a new +;;; one. ;;; (defun pre-environment-analyze-top-level (component) (declare (type component component)) - (assert (eq (component-kind component) :top-level)) (dolist (lambda (component-lambdas component)) (compute-closure lambda) (dolist (let (lambda-lets lambda))