Der Aufruf (member-if? p l) ergibt dann einen Wert ungleich nil, wenn das Prädikat p für ein Element von l erfüllt ist.

Das Prädikat member-if? basiert auf cond, null?, first und rest:

(setq member-if?
  (lambda (p l)
    (cond
      ((null? l) nil)
      ((p (first l)) l)
      ((member-if? p (rest l))))))