Function Tree-Find-If

Part of:

package metabang.utilities
( tree-find-if < test > < tree > )
Finds first cons in TREE that satisfies TEST. This is guaranteed to be
inefficient.