From 54c51c3b8560f98d09b8394c8f36b50081ad97fa Mon Sep 17 00:00:00 2001 From: Attila Lendvai Date: Mon, 26 Nov 2007 15:52:59 +0200 Subject: [PATCH] Switch the argument order of STARTS/ENDS-WITH-SUBSEQ to that it matches STARTS/ENDS-WITH. --- sequences.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/sequences.lisp b/sequences.lisp index ab68ed2..5bdd73f 100644 --- a/sequences.lisp +++ b/sequences.lisp @@ -173,7 +173,7 @@ sequence, is an empty sequence, or if OBJECT cannot be stored in SEQUENCE." :datum sequence :expected-type '(and proper-sequence (not (satisfies emptyp)))))))) -(defun starts-with-subseq (sequence prefix &rest args &key (return-suffix nil) &allow-other-keys) +(defun starts-with-subseq (prefix sequence &rest args &key (return-suffix nil) &allow-other-keys) "Test whether the first elements of SEQUENCE are the same (as per TEST) as the elements of PREFIX. If RETURN-SUFFIX is T the functions returns, as a second value, a @@ -197,7 +197,7 @@ displaced array pointing to the sequence after PREFIX." :adjustable nil))))) (values nil nil)))) -(defun ends-with-subseq (sequence suffix &key (test #'eql)) +(defun ends-with-subseq (suffix sequence &key (test #'eql)) "Test whether SEQUENCE ends with SUFFIX. In other words: return true if the last (length SUFFIX) elements of SEQUENCE are equal to SUFFIX." (let ((sequence-length (length sequence)) -- 2.11.4.GIT