diff --git a/compiler/life.lisp b/compiler/life.lisp index 761be8c61f217161cd09ca21e64f1cfae132c659..21ff5d37c1a6cf507ee33cd1ba3eb8aa4d3a5c2c 100644 --- a/compiler/life.lisp +++ b/compiler/life.lisp @@ -947,7 +947,7 @@ (setf (global-conflicts-tn-next oprev) conf) (setf (tn-global-conflicts original) conf)) (change-global-conflicts-tn conf original) - (shiftf conf (global-conflicts-tn-next conf) oconf)) + (shiftf oprev conf (global-conflicts-tn-next conf) oconf)) (t (merge-alias-block-conflicts conf oconf) (shiftf oprev oconf (global-conflicts-tn-next oconf))