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