anchor.diff:      :type property-table
       :accessor class-direct-generalizations-table
       ))
  -  (:metaclass transform-class)
  +  (:metaclass metamodel-stub-class)
     (:model *boostrap-model*)
     (:model-metaclass "uml:Class")
  -  (:composite-name "UML::Classifier")
  +  (:cname "UML::Classifier")
     (:is-abstract t))
   
   
  
positive.code:        (find-class 'direct-property-transform-slot-definition))
        (t (call-next-method)))))
  
  (defmethod effective-slot-definition-class ((class transform-class)
  					    &rest initargs)
    (destructuring-bind (&key name &allow-other-keys)
        initargs
  
negative.code:     :local-name "packagedElement"
      :type property-table
      :accessor uml-package-packaged-elements))
    (:metaclass metamodel-stub-class)
    (:model *boostrap-model*)
    (:model-metaclass "uml:Class")
    (:cname "UML::Package"))
  