Is there a standard function testing if a sequence starts with a sequence

[samppi]

Is there a function in clojure.core or clojure.contrib so that:
(and (mystery-fn '(a b c d) '(a b))
(not (mystery-fn '(a b c d) '(a b d))))

[Mark Engelberg]

how about something like:
(defn mystery-fn [l1 l2] (every? identity (map = l1 l2)))

[samppi]

Awesome, thanks for the quick answer. I think that it'd be a useful
thing to add to seq-utils or something. :)

On Jul 17, 1:41 pm, Mark Engelberg <mark.engelb...@gmail.com> wrote:

[John Harrop]

user=> (mystery-fn '(a b) '(a b c d))

true

How about something like:
(defn mystery-fn [l1 l2] (and (<= (count l2) (count l1)) (every? identity (map = l1 l2))))