diff --git a/compiler/life.lisp b/compiler/life.lisp index ff3413990f00836f736e2d07e91781c375a9571f..97c838099f0888d7903276e630e8a93970aad10d 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))))