Function: FIND-ANYWHERE-IF

Source

(defun find-anywhere-if (pred tree)
  (cond ((funcall pred tree) tree)
	((atom tree) nil)
	((find-anywhere-if pred (first tree)))
	((find-anywhere-if pred (rest tree)))))