anchor.diff:  (def-uml-package "UML") ;; ?
   
   
  -(defclass uml-class (classifier uml-transform-class)
  +(defclass uml-class (classifier transform-class)
     ;; NOTE: This class represents the main initial use-case for the
     ;; transformation algorithm proposed in Lupine XMI
     ((owned-attributes
  -    :source-element-p t
  -    :source-local-name "ownedAttribute" ;; qname (?)
  +    :element-p t
  +    :local-name "ownedAttribute" ;; qname (?)
       :initarg :owned-attributes
       ;; NB: access to values of slot containing property-table types
       ;; may be faciliated with a special slot definition extension
  
positive.code:   ;;
    ;; 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))
  
  
negative.code: 
  ;; * Trasform-Class
  
  (defclass transform-class (bootstrap-model-component standard-class)
    ((model-metaclass
      :initarg :model-metaclass
      :types simple-string
      :accessor class-model-metaclass
      )
     (composite-name
      ;; ??? specific to UML, but needs to be handled during class
      ;; init. However, in order for it to be appropriately handleed,
      ;; the system must have NAMESPACE and NAMED-ELEMENT defined.
      ;;
      ;; so, FIXME: during CHANGE-CLASS or somesuch, be sure to resolve
      ;; COMPOSITE-NAME to its NAME and CONTAINING-PACKAGE(s) components
      :initarg :comopsite-name
      :type simple-string
      :accessor class-composite-name
      )))
  
  
  (defmethod shared-initialize ((instance transform-class)
  			      slots &rest initargs
  			      &key &allow-other-keys)
    (macrolet ((uncadr (name)
  	       (with-gensyms (it)
  		 (let ((,it (getf initargs ,name)))
  		   (when ,it
  		     (setf (getf initargs ,name)
  			   (cadr ,it)))))))
      ;; FIXME: resolve MODEL-METACLASS (as a QName) onto model
      ;; namespace registry (prefix/ns bindings) in MODEL
      (uncadr :model-metaclass)
      (uncadr :model)
      (uncadr :composite-name)
      ;; FIXME: resolve COMPOSITE-NAME ...
      (apply #'call-next-method instance slots initargs)
      ))
  
  
  (defmethod direct-slot-definition-class ((class transform-class)
  					 &rest initargs)
    (destructuring-bind (&key source-local-name &allow-other-keys)
        initargs
      (cond
        (source-local-name
         (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
      (let ((dslots (compute-direct-slot-definitions name class)))
        (delare (type cons dslots))
        (cond
  	((some #'(lambda (sl)
  		   (typep sl 'direct-property-transform-slot-definition))
  	       dslots)
  	 (find-class 'effective-property-transform-slot-definition))
  	(t (call-next-method))))))
  
  
  #+nil
  (defclass uml-transform-class (transform-class)
    ;; moreso representstive of a named element and a relation to its
    ;; containing package
    ((uml-source-package
      )
     (uml-element-name
  