anchor.diff:  
   (defvar *xmi-unmarshalling-model*)
   
  -(defgeneric find-type-transform (namespace element type tmodel))
  -
  -(defgeneric apply-type-transform (transform source))
  -
   (defclass type-transform (transformation-model-componen)
     ((source-element-qname
       :initarg :soruce-element-lname
  
positive.code: ;;; * Element transformation proto.
  
  (defclass transformation-model ()
    ())
  
  #| NB: Types and Refinment within XMI Serialized UML Element Definitions
  
  
negative.code:   ;; NOTE: This class represents the main initial use-case for the
    ;; transformation algorithm proposed in Lupine XMI
    ((owned-attributes
      :element "uml:ownedAttribute" ;; qname
      :initarg :owned-attributes
      ;; NB: access to values of slot containing property-table types
      ;; may be faciliated with a special slot definition extension
      :type property-table
      :accessor class-direct-owned-attributes-table)
     (owned-rules
      :element "uml:ownedRule"
      :initarg :owned-rules
      :type property-table
      :accessor class-direct-owned-rules-table
      )
     (generalizations
      :element "uml:generalization"
      :initarg :generalizations
      :type property-table
      :accessor class-direct-generalizations-table
      )
     (documentation-stub
      :initarg :documentation-stub
      :type simple-string
      :accessor class-documentation-stub
      )
     (owned-comments
      :element "uml:ownedComment"
      :type property-table
      :accessor class-direct-owned-comments-table
      ))
  
    (:metaclass uml-tranform-class)
  
    (:model *xmi-unmarshalling-model*)
  
    (:namespaces
     ;; namespaces for qnames
     ("uml" "http://www.omg.org/spec/UML/20110701" ))
  
    ;; UML composite name
    ;;
    ;; This needs a "UML" package defined for appropriate resolution,
    ;; however.
    ;;
    ;; This class option would effectively denote a packagedElement
    ;; definition for the defining class.
    (:uml-name . "UML::Class")
  
    ;; "uml" in the following item denotes the namespace URI assigned
    ;; tot he prefix "uml"
    (:transform-type . "uml:Class")  ;; cf. @xmi:type="uml:Class"
    )
  
  (let ((c (find-class 'uml-class)))
    (change-class c c))
  