blob: 6b834570b23e096abbcec09e53bc2406ba3b9fa3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
(ns clojure.contrib.expect.util
(:use clojure.contrib.seq-utils))
(defmacro assert-args [fnname & pairs]
`(do (when-not ~(first pairs)
(throw (IllegalArgumentException.
~(str fnname " requires " (second pairs)))))
~(let [more (nnext pairs)]
(when more
(list* `assert-args fnname more)))))
(defn index-of
"Returns the first index of value v in the collection or nil."
[coll v]
(first (positions #{v} coll)))
|
