X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Flife.lisp;h=1e853182fe2a66401f5acba3e9fa47e44c98ea24;hb=0ebaa8ecfbe36286db0b4b380ba145af9695acca;hp=9d28fbdfc5b92a30eb97e24f27bb8d37a35f022b;hpb=31f68584d0732dc0d17f379773e5f87f1e5a78ad;p=sbcl.git

diff --git a/src/compiler/life.lisp b/src/compiler/life.lisp
index 9d28fbd..1e85318 100644
--- a/src/compiler/life.lisp
+++ b/src/compiler/life.lisp
@@ -1049,7 +1049,7 @@
                     (setq ,n (ir2-block-number (global-conflicts-block ,c)))))
                (scan (g l lc)
                  `(do ()
-                      ((>= ,g ,l))
+                      ((>= ,l ,g))
                     (advance ,l ,lc))))
 
       (loop