From cb2a29996dbac2b7e5183462ab119d0eeeece8d8 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Wed, 17 Oct 1990 19:17:04 +0000 Subject: [PATCH] Changed PRE-ENVIRONMENT-ANALYZE-TOP-LEVEL to not gag on non :TOP-LEVEL components. --- compiler/envanal.lisp | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/compiler/envanal.lisp b/compiler/envanal.lisp index 1293c9fb1..ae256a1f7 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)) -- GitLab