INTERSECTION-OF-SETS
====================

Syntax: (intersection-of-sets 
              <evaluates-to <set-of A (...)>>
              <evaluates-to <set-of B (...)>>
              [:TYPE <evaluates-to Typ-Name>]
              [:TEST <Lisp-Typ: Funktion>])

        ==> <set-of X (...)>

Diese Funktion bildet die Schnittmenge zweier 
Mengen.

Warnung: Eine Typ-Prüfung kann einen Fehler
         verursachen!

Beispiel: >(set-to-list (intersection-of-sets
                *staedte* *hauptstaedte* 
                :TYPE 'hauptstadt))
          (#<HAUPTSTADT PARIS> #<HAUPTSTADT 
               BRUESSEL> #<HAUPTSTADT BERLIN>)