added auxiliary function

git-svn-id: https://projects.brucker.ch/su4sml/svn/infsec-import/trunk/src/su4sml@3069 3260e6d1-4efc-4170-b0a7-36055960796d

src/xmi_core.sml

@@ -404,6 +404,8 @@ datatype Classifier = Primitive   of Primitive
                     | OrderedSet  of OrderedSet
 		    | Void        of Void
 
+fun classifier_stereotype_of (Class{stereotype,...}) = stereotype
+
 fun classifier_name_of (Primitive{name,...}) = name
   | classifier_name_of (Class{name,...}) = name
   | classifier_name_of (Interface{name,...}) = name