0.6.12.3:

[sbcl.git] / src / compiler / control.lisp

diff --git a/src/compiler/control.lisp b/src/compiler/control.lisp
index e2949d2..ce58695 100644 (file)
--- a/src/compiler/control.lisp
+++ b/src/compiler/control.lisp
@@ -18,9 +18,6 @@
 
 (in-package "SB!C")
 
-(file-comment
-  "$Header$")
-
 ;;; Insert Block in the emission order after the block After.
 (defun add-to-emit-order (block after)
   (declare (type block-annotation block after))
@@ -76,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))))
@@ -103,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)))