X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fcopyprop.lisp;h=10a17684bbbcaed898fb8cc8009a2c7ebf94e532;hb=57d7dd0f59b9df89feb1175b0efc449bb0b8d400;hp=5a4e941a81a67f54a85052112eb3fb9b8919c52c;hpb=c2431e2d0d0222a3cf20cfdfa48201bdcc65cd76;p=sbcl.git

diff --git a/src/compiler/copyprop.lisp b/src/compiler/copyprop.lisp
index 5a4e941..10a1768 100644
--- a/src/compiler/copyprop.lisp
+++ b/src/compiler/copyprop.lisp
@@ -162,11 +162,11 @@
          (unless (sset-member original in)
            (return nil)))
        (let ((info (vop-info vop)))
-         (not (and (eq (vop-info-move-args info) :local-call)
-                   (>= (or (position-in #'tn-ref-across arg (vop-args vop)
-                                        :key #'tn-ref-tn)
-                           (error "Couldn't find REF?"))
-                       (length (template-arg-types info))))))))
+         (not (or (eq (vop-info-move-args info) :local-call)
+                  (>= (or (position-in #'tn-ref-across arg (vop-args vop)
+                                       :key #'tn-ref-tn)
+                          (error "Couldn't find REF?"))
+                      (length (template-arg-types info))))))))
 
 ;;; Make use of the result of flow analysis to eliminate copies. We
 ;;; scan the VOPs in block, propagating copies and keeping our IN set