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