CONSTRAINT-PATTERN-OF
=====================

Syntax: (constraint-pattern-of <Constraint-Specifier>
                          [:IDENTIFIER T | NIL | Var]
                          [:KB <kb>])

Warnung: noch nicht implementiert!

Diese Funktion liefert das Constraint-Muster, zu 
dem das angegebene Constraint gehört, zurück.
Machen Sie keine Angabe, erhalten Sie das Objekt 
zurück, d.h. ':IDENTIFIER' wird auf NIL gesetzt. 
Sonst wird das Constraint-Muster als Identifier 
geliefert.

Beispiel: >(constraint-pattern-of
                    berechne-kosten-fuer-kunden
                    :IDENTIFIER T)
          BERECHNE-REALE-KOSTEN