From: Paul Khuong 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/?a=commitdiff_plain;h=eda83f00e869193cb69826be5fa1086b95d12ff7;p=sbcl.git 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))