anchor.diff:  (defgeneric apply-transform (transformation source))
   
   (defclass transformation-model-component ()
  +  ;; used in METAMODEL-TRANSFORM and in TRANSFORM-CLASS
     ((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
  +(declaim (type transformation-model *uml-stub-model*))
  +
  +(defvar *uml-stub-model* ;; name ??
  +  (make-instance 'transformation-model
  +		 :namespaces
  +		 '(("uml" . "http://www.omg.org/spec/UML/20110701" ))))
  +
  +
  +(defclass metamodel-transform (transformation-model-component)
  +  ((local-name ;; how differs from TYPE ?
  +    ;; ^ local name for type of metamodel serialiation?
  +    :initarg :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
  +    :accessor transform-local-name)
  +   (namespace
  +    :initarg namespace
  +    :type namespace
  +    :accessor transform-namespace)
  +   (element-p
  +    :initarg :element-p
       :type boolean
  -    :reader type-transform-source-local-element-p)
  -   (source-attribute-p
  -    :initarg :source-element-p
  +    :accessor transform-element-p)
  +   (attribute-p
  +    :initarg :attribute-p
       :type boolean
  -    :reader type-transform-source-attribute-p)
  +    :accessor transform-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"
  +    ;; cf. xmi:type attribute value in UML
  +    ;; (FIXME: Decouple that from the metamodel?)
       :initarg :type
       :type string ;; ?? FIXME: namespace qualified strings ??
       )
  
positive.code:     :type property-table
      :accessor class-direct-generalizations-table
      ))
    (:metaclass uml-class)
    (:model *uml-stub-metamodel*)
    (:namespace
     ("uml" "http://www.omg.org/spec/UML/20110701" ))
    (:uml-name "UML::Classifier")
    (:is-abstract . t))
  
negative.code: 
  (defgeneric class-transform-type (class))
  
  
  ;;; * Element transformation proto.
  
  