anchor.diff:      :accessor class-direct-owned-attributes)
      (owned-rules
       :element "uml:ownedRule"
  -    #|...initargs...|# )
  +    #|...initargs...|#
  +    )
      (uml-generalizations
       :element "uml:generalization"
  -    #|...initargs...|# )
  +    #|...initargs...|#
  +    )
      (documentation-stub
  -    #|...initargs...|# )
  +    #|...initargs...|#
  +    )
      (owned-comments
       :element "uml:ownedComment"
  -    #|...initargs...|# ))
  +    #|...initargs...|#
  +    ))
   
  -  (:metaclass UML-tranform-class)
  -  (:uml-name "Class")
  -  (:transform-type "uml:Class"))
  +  (:metaclass uml-tranform-class)
  +
  +  (:namespaces
  +   ("uml" "http://www.omg.org/spec/UML/20110701"))
  +
  +  (:uml-name . "Class")
  +
  +  (:transform-type . "uml:Class"))
   
   (let ((c (find-class 'uml-class)))
     (change-class c c))
positive.code:     :type string
      :accessor class-transform-type)))
  
  (defclass UML-tranform-class (transform-class)
     ((uml-name :initarg :uml-name :type string)
      (uml-packge :initarg :uml-package)))
  
  (defclass element-tranform-slot-definition (slot-definition)
    ((element :initarg :element)))
  
  (deftransform-namespace "uml" "http://www.omg.org/spec/UML/20110701")
  
  (defclass UML-class (UML-tranform-class)
    ((owned-attributes
      :element "uml:ownedAttribute"
      :initarg :owned-attributes
  
negative.code: 
  (in-package #:lupine/xmi)
  
  ;;; * Metaclasses
  
  (defgeneric class-transform-type (class))
  
  (defclass transform-class (standard-class)
  