X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fmeta-vmdef.lisp;h=03ab8e6cd649f15cfa8e7db353674eede2ab062a;hb=24bc431a3403af05c5df601d09c0d0c27cb500b2;hp=51b9898ac9320147896f48b157a5751e3aea6c27;hpb=78a057624fecd10d0fb2ead4ef02ffc361b1ee22;p=sbcl.git

diff --git a/src/compiler/meta-vmdef.lisp b/src/compiler/meta-vmdef.lisp
index 51b9898..03ab8e6 100644
--- a/src/compiler/meta-vmdef.lisp
+++ b/src/compiler/meta-vmdef.lisp
@@ -1911,7 +1911,7 @@
 	   (let ((,ltns (ir2-block-local-tns ,n-block)))
 	     ;; Do TNs always-live in this block and live :MORE TNs.
 	     (do ((,n-conf (ir2-block-global-tns ,n-block)
-			   (global-conflicts-next ,n-conf)))
+			   (global-conflicts-next-blockwise ,n-conf)))
 		 ((null ,n-conf))
 	       (when (or (eq (global-conflicts-kind ,n-conf) :live)
 			 (let ((,i (global-conflicts-number ,n-conf)))