From eda83f00e869193cb69826be5fa1086b95d12ff7 Mon Sep 17 00:00:00 2001 From: Paul Khuong Date: Tue, 12 Nov 2013 17:55:38 -0500 Subject: [PATCH] Convert an ASSERT into an AVER in INIT-LIVE-TNS --- src/compiler/pack.lisp | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) 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)) -- 1.7.10.4