X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fcontrol.lisp;h=ce586956069ee7a5d181b8fb1bee6e907d681466;hb=dfa55a883f94470267b626dae77ce7e7dfac3df6;hp=91ff7db42fa4312520e82fd4e183ee1f7b19737f;hpb=cea4896b2482b7b2b429c1631d774b4cfbc0efba;p=sbcl.git

diff --git a/src/compiler/control.lisp b/src/compiler/control.lisp
index 91ff7db..ce58695 100644
--- a/src/compiler/control.lisp
+++ b/src/compiler/control.lisp
@@ -73,7 +73,7 @@
 			 (> (block-number pred) current-num))
 		(setq current pred   current-num (block-number pred))
 		(return)))))
-	(assert (not (block-flag current)))
+	(aver (not (block-flag current)))
 	current))
      (t
       block))))
@@ -100,7 +100,7 @@
   (unless (block-flag block)
     (let ((block (find-rotated-loop-head block)))
       (setf (block-flag block) t)
-      (assert (and (block-component block) (not (block-delete-p block))))
+      (aver (and (block-component block) (not (block-delete-p block))))
       (add-to-emit-order (or (block-info block)
 			     (setf (block-info block)
 				   (funcall block-info-constructor block)))