From c5c8ff2ce2fcdc1c7e70983b18dd4abaab8e8b35 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Mon, 3 Sep 1990 12:57:17 +0000
Subject: [PATCH] Fixed typo in MERGE-ALIAS-CONFLICTS where I was using the
 initial value rather than the loop variable in the body of the loop changing
 the conflict TN for leftover conflicts.

---
 compiler/life.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/life.lisp b/compiler/life.lisp
index ff3413990..97c838099 100644
--- a/compiler/life.lisp
+++ b/compiler/life.lisp
@@ -950,7 +950,7 @@
 		(setf (tn-global-conflicts original) conf))
 	    (do ((current conf (global-conflicts-tn-next current)))
 		((null current))
-	      (change-global-conflicts-tn conf original))
+	      (change-global-conflicts-tn current original))
 	    (return))
 	  (unless conf (return))))
 
-- 
GitLab