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

Weaken (not (component-new-functions component)) assertion to allow

deleted functions.
parent a34b678c
No related branches found
No related tags found
No related merge requests found
......@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/envanal.lisp,v 1.22 1992/09/15 17:46:41 ram Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/envanal.lisp,v 1.23 1993/02/23 11:56:16 ram Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -38,7 +38,10 @@
;;;
(defun environment-analyze (component)
(declare (type component component))
(assert (not (component-new-functions component)))
(assert (every #'(lambda (x)
(eq (functional-kind x) :deleted))
(component-new-functions component)))
(setf (component-new-functions component) ())
(dolist (fun (component-lambdas component))
(reinit-lambda-environment fun))
(dolist (fun (component-lambdas component))
......
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