From 7fc0d5c03c5fe1377a38aabd326dbb8d18e873de Mon Sep 17 00:00:00 2001
From: Nikodemus Siivola <nikodemus@random-state.net>
Date: Sat, 26 Jan 2013 15:10:59 +0200
Subject: [PATCH] fix starts-with-subseq :start1 and :start2

---
 sequences.lisp |  2 +-
 tests.lisp     | 10 ++++++++++
 2 files changed, 11 insertions(+), 1 deletion(-)

diff --git a/sequences.lisp b/sequences.lisp
index 8b9a443..94c16b9 100644
--- a/sequences.lisp
+++ b/sequences.lisp
@@ -289,7 +289,7 @@ displaced array pointing to the sequence after PREFIX."
   (let ((sequence-length (length sequence))
         (prefix-length (length prefix)))
     (if (<= prefix-length sequence-length)
-        (let ((mismatch (apply #'mismatch sequence prefix args)))
+        (let ((mismatch (apply #'mismatch prefix sequence args)))
           (if mismatch
               (if (< mismatch prefix-length)
                   (values nil nil)
diff --git a/tests.lisp b/tests.lisp
index 7ffe30f..61579d7 100644
--- a/tests.lisp
+++ b/tests.lisp
@@ -1852,3 +1852,13 @@
         (incf n))
       n)
   13)
+
+(deftest starts-with-subseq.start1
+    (starts-with-subseq "foo" "oop" :start1 1)
+  t
+  nil)
+
+(deftest starts-with-subseq.start2
+    (starts-with-subseq "foo" "xfoop" :start2 1)
+  t
+  nil)
-- 
GitLab