(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)))))