Function Remove-From-Tree-If

( remove-from-tree-if < pred > < tree > &optional < atom-processor > )
Strip from tree of atoms that satistify predicate