every?

every?

Test whether every member of a list satisfieds the passed predicate.

(proc is-1 (x)
   (= x 1))

(every? is-1 '(1 1 1)) ; true
(every? is-1 '(0 1 0)) ; false
(every? is-1 '(2 3 5)) ; false