From 5d4b2168e7ccea2d495d38dbf42cb60221c0833d Mon Sep 17 00:00:00 2001
From: Stas Boukarev <stassats@gmail.com>
Date: Mon, 4 Apr 2016 22:23:25 +0300
Subject: [PATCH] Fix a typo in copyprop.

Should be TN-REF-NEXT for iterating over TN writers, not
TN-REF-ACROSS.
---
 src/compiler/copyprop.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/compiler/copyprop.lisp b/src/compiler/copyprop.lisp
index 633bb9a80..3dcb78a8d 100644
--- a/src/compiler/copyprop.lisp
+++ b/src/compiler/copyprop.lisp
@@ -98,7 +98,7 @@
                        arg-tn)))))))
 
 (defun reads-within-block-p (tn block)
-  (do ((ref (tn-reads tn) (tn-ref-across ref)))
+  (do ((ref (tn-reads tn) (tn-ref-next ref)))
       ((null ref) t)
     (let ((vop (tn-ref-vop ref)))
       (unless (eq (ir2-block-block (vop-block vop)) block)
-- 
2.11.4.GIT