anchor.diff:  
   (defgeneric class-transform-type (class))
   
  -(defclass transform-class (standard-class)
  -  ((transform-type ;; ?
  -    :initarg :transform-type
  -    :type string
  -    :accessor class-transform-type)))
  -
  -(defclass uml-transform-class (transform-class)
  -   ((uml-name :initarg :uml-name :type string) ;; must map to XML local name
  -    (uml-package :initarg :uml-package)
  -    ;; ^ FIXME: define package structure and ensure referencing to
  -    ;; this slot
  -    ))
   
   ;;; * Element transformation proto.
   
  
positive.code: (defgeneric apply-transform (transformation source))
  
  (defclass transformation-model-component ()
    ((model
      :initarg :model
      :type transformation-model
      :accessor component-transformation-model)
  
     ))
  
  ;;; * ...
  
  (declaim (type transformation-model *uml-stub-metamodel*))
  
  (defvar *uml-stub-metamodel*)
  
  (defclass type-transform (transformation-model-component)
    ((source-local-name
      :initarg :source-local-name
      ;; FIXME: validate local-name as an XML name
      :type string ;; FIXME: namespace qualified strings? - see ensure-qname (?)
      :reader type-transform-source-local-name)
     (source-element-p
      :initarg :source-element-p
      :type boolean
      :reader type-transform-source-local-element-p)
     (source-attribute-p
      :initarg :source-element-p
      :type boolean
      :reader type-transform-source-attribute-p)
     (type
      ;; type of a typed model quality serialized in XMI (see notes, in
      ;; the previous)
      ;;
      ;; e.g. "uml:Property", "uml:Comment", "uml:Operation", "uml:Constraint", "uml:Package"
      :initarg :type
      :type string ;; ?? FIXME: namespace qualified strings ??
      )
  
negative.code: 
  
  (defclass property-transform-slot-definition
      (metamodel-transform slot-definition)
    ())
  
  (defclass direct-property-transform-slot-definition
      (metamodel-transform-slot-definition standard-direct-slot-definition)
    ())
  
  (defclass effective-property-transform-slot-definition
      (metamodel-transform-slot-definition standard-effective-slot-definition)
    ())
  
  ;; * Trasform-Class
  
  (defclass transform-class (transformation-model-component standard-class)
    ((transform-type
      :initarg :transform-type
      :type qname)))
  
  #+NIL ;; FIXME: register TRANSFORM-TYPE in the appropriate namespace in MODEL
  (defmethod shared-initialize :around ((instance transform-class) slots
  				      &rest initargs
  				      &key (transform-type nil tp)
  				      &allow-other-keys)
    (cond
      (tp
       )
      (t (call-next-method))))
  
  
  (defclass uml-transform-class (transform-class)
    ((uml-source-package
      )
     (uml-element-name
      )))
  
  
  ;;; * UML-Class
  