fix starts-with-subseq :start1 and :start2

diff --git a/sequences.lisp b/sequences.lisp
index 8b9a443..94c16b9 100644 (file)
--- 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 (file)
--- 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)