(defun EVERY (f lst)

  (cond ((null lst) t)

        ((not (funcall f (car lst))) Nil)

        (t (EVERY f (cdr lst))))) 

==> EVERY

(EVERY #'evenp '(2 4 6 8 10))

==> T

(EVERY #'evenp '(2 4 6 5 8 10))

==> NIL