SUBST-IF
========

Syntax: (subst-if <neu> <Prädikat>
             <Baum>)                 ; Common Lisp
        (tree-substitute-if <neu> <Prädikat>
             <Baum>)                 ; Babylon 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:   >(subst-if 'c #'numberp '(a b 1 (1 b a)))
            (A B C (C B A))