IS-SUBSET-OF-SET
================

Syntax: (is-subset-of-set <set-of Typ-A>
                          <set-of Typ-B>
                          [:TEST Test-Fn])

        ==> <set-of Typ-A> | NIL

Diese Funktion prüft nach, ob die Menge des Typs 
A eine Teilmenge der Menge des Typs B ist.

Beispiel: >(is-subset-of-set *hauptstaedte* 
                             *staedte*)
          #<set-of T (...)>
 
          >(is-subset-of-set *staedte* 
                             *hauptstaedte*)
          NIL