TREE-SUBSTITUTE-IF
==================

Syntax: (tree-substitute-if <neu> <Prädikat>
             <Baum>)                 ; Babylon Lisp
        (subst-if <neu> <Prädikat>
             <Baum>)                 ; Common Lisp

Diese Funktion tauscht die Elemente, die das richtige
Prädikat haben, gegen neue. Sie bearbeitet nicht
nur die Liste <Baum>, sondern auch alle Listen, die in
<Baum> enthalten sind.

Beispiel:      >(tree-substitute-if 'c #'numberp
                                    '(a b 1 (1 b a)))
               (A B C (C B A))