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

syntax: (constraint-pattern-of <constraint-specifier>
                          [:IDENTIFIER T | NIL | Var]
                          [:KB <kb>])

Warning: yet not implemented!

This function returns the constraint pattern, to which
the given constraint belongs. If you do not give
details you will get back the object and ':IDENTIFIER'
will be set to NIL, otherwise the constraint pattern
will be returned as an identifier.

example: >(constraint-pattern-of
                   calculate-costs-for-clients
                   :IDENTIFIER T)
         CALCULATE-REAL-COSTS