X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fpack.lisp;h=60d856535a89eea46b1a4b595641fe1c2b468794;hb=eda83f00e869193cb69826be5fa1086b95d12ff7;hp=cc5afac246ab0be6bce48eef983533db74638823;hpb=19319c931fc1636835dbef71808cc10e252bcf45;p=sbcl.git

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))