X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fseqtran.lisp;h=f87bd7800b733d07641917ccd214908865687b4e;hb=2c9e9cdf20257c422cd43bd30b89990499bca475;hp=9b9db97ecf025e86e5276d01b012152f22084b2c;hpb=600df9154f14937ac2f8b63d172c57a8626a8028;p=sbcl.git

diff --git a/src/compiler/seqtran.lisp b/src/compiler/seqtran.lisp
index 9b9db97..f87bd78 100644
--- a/src/compiler/seqtran.lisp
+++ b/src/compiler/seqtran.lisp
@@ -1087,8 +1087,8 @@
                     (oops pattern start1 end1))
                   (unless (<= start2 end2 len2)
                     (oops pattern start2 end2))))
-            (when (= 0 end1)
-              (return-from search 0))
+            (when (= end1 start1)
+              (return-from search start2))
             (do (,(if from-end
                       '(index2 (- end2 (- end1 start1)) (1- index2))
                       '(index2 start2 (1+ index2))))