Skip to content
Snippets Groups Projects
Commit cb2a2999 authored by ram's avatar ram
Browse files

Changed PRE-ENVIRONMENT-ANALYZE-TOP-LEVEL to not gag on non :TOP-LEVEL

components.
parent 8800a1df
No related branches found
No related tags found
No related merge requests found
......@@ -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))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment