X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fenvanal.lisp;h=11b86c179f8aa023bba0b92cce47c777d5a9afa6;hb=0dcc957ae6bf24809fda82fd59c134e70058c42a;hp=80cc63c32a1a3dde499ec77e1aa80bf3b3b916c6;hpb=cea4896b2482b7b2b429c1631d774b4cfbc0efba;p=sbcl.git

diff --git a/src/compiler/envanal.lisp b/src/compiler/envanal.lisp
index 80cc63c..11b86c1 100644
--- a/src/compiler/envanal.lisp
+++ b/src/compiler/envanal.lisp
@@ -30,9 +30,9 @@
 ;;;     that the XEP doesn't.
 (defun environment-analyze (component)
   (declare (type component component))
-  (assert (every #'(lambda (x)
-		     (eq (functional-kind x) :deleted))
-		 (component-new-functions component)))
+  (aver (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))
@@ -50,7 +50,7 @@
       (let ((kind (functional-kind fun)))
 	(unless (or (eq kind :top-level)
 		    (and *byte-compiling* (eq kind :optional)))
-	  (assert (member kind '(:optional :cleanup :escape)))
+	  (aver (member kind '(:optional :cleanup :escape)))
 	  (setf (functional-kind fun) nil)
 	  (delete-functional fun)))))
 
@@ -219,13 +219,13 @@
 
     (if (find-nlx-info entry cont)
 	(let ((block (node-block exit)))
-	  (assert (= (length (block-succ block)) 1))
+	  (aver (= (length (block-succ block)) 1))
 	  (unlink-blocks block (first (block-succ block)))
 	  (link-blocks block (component-tail (block-component block))))
 	(insert-nlx-entry-stub exit env))
 
     (let ((info (find-nlx-info entry cont)))
-      (assert info)
+      (aver info)
       (close-over info (node-environment exit) env)
       (when (eq (functional-kind exit-fun) :escape)
 	(mapc #'(lambda (x)
@@ -249,8 +249,7 @@
       (dolist (exit (entry-exits entry))
 	(let ((target-env (node-environment entry)))
 	  (if (eq (node-environment exit) target-env)
-	      (unless *converting-for-interpreter*
-		(maybe-delete-exit exit))
+	      (maybe-delete-exit exit)
 	      (note-non-local-exit target-env exit))))))
 
   (values))
@@ -295,7 +294,7 @@
 	       (code `(%lexical-exit-breakup ',nlx)))))))
 
       (when (code)
-	(assert (not (node-tail-p (block-last block1))))
+	(aver (not (node-tail-p (block-last block1))))
 	(insert-cleanup-code block1 block2
 			     (block-last block1)
 			     `(progn ,@(code)))