X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fconstraint.lisp;h=ebe39ca4057890455844ca108d060b53299f3789;hb=69d60b456b07a0256f08df0d02484f361ce5737c;hp=5e61da0c24bde2938a6e49a392435b4c72a0d102;hpb=2546d61e3e230629978781602f82cee66f579d07;p=sbcl.git

diff --git a/src/compiler/constraint.lisp b/src/compiler/constraint.lisp
index 5e61da0..ebe39ca 100644
--- a/src/compiler/constraint.lisp
+++ b/src/compiler/constraint.lisp
@@ -193,7 +193,7 @@
                     ((constant-lvar-p arg2)
                      (add-complement-constraints if 'eql var1
                                                  (ref-leaf
-                                                  (lvar-uses arg2))
+                                                  (principal-lvar-use arg2))
                                                  nil)))))
            ((< >)
             (let* ((arg1 (first args))