Der Aufruf (every? p l) ergibt genau dann einen Wert ungleich nil, wenn für alle Elemente der Liste l das Prädikat p erfüllt ist.

Das Prädikat every? basiert auf cond, null?, not, first und rest:

(setq every?
  (lambda (fn l)
    (cond
      ((null? l))
      ((not (fn (first l))) nil)
      ((every? fn (rest l))))))