From: Paul Khuong <pvk@pvk.ca>
Date: Tue, 12 Nov 2013 22:55:38 +0000 (-0500)
Subject: Convert an ASSERT into an AVER in INIT-LIVE-TNS
X-Git-Url: http://repo.macrolet.net/gitweb/?p=sbcl.git;a=commitdiff_plain;h=eda83f00e869193cb69826be5fa1086b95d12ff7

Convert an ASSERT into an AVER in INIT-LIVE-TNS
---

diff --git a/src/compiler/pack.lisp b/src/compiler/pack.lisp
index cc5afac..60d8565 100644
--- a/src/compiler/pack.lisp
+++ b/src/compiler/pack.lisp
@@ -856,8 +856,7 @@
                 ((= offset end))
               (declare (type index offset end))
               (setf (svref (finite-sb-live-tns sb) offset) tn))
-            (assert (and (null (tn-reads tn))
-                         (null (tn-writes tn))))))))
+            (aver (and (null (tn-reads tn)) (null (tn-writes tn))))))))
 
   (setq *live-block* block)
   (setq *live-vop* (ir2-block-last-vop block))