anchor.diff:      :type boolean)
      )
   
  -  (:metaclass transform-class)
  +  (:metaclass metamodel-stub-class)
   
     ;; FIXME: add :MODEL to other class definitions (?)
     (:model *boostrap-model*)
  
positive.code:     :type property-table
      :accessor class-direct-owned-rules-table
      ))
    (:metaclass transform-class)
    (:model *boostrap-model*)
    (:model-metaclass  "uml:Class")
    (:composite-name "UML::Namespace")
    (:is-abstract t))
  
  
  
negative.code: 
  ;; * Trasform-Class
  
  (defclass metamodel-stub-class (bootstrap-model-component standard-class)
    ((model-metaclass
      :initarg :model-metaclass
      :types simple-string
      :accessor class-model-metaclass
      )
     ))
  
  
  (defmethod shared-initialize ((instance metamodel-stub-class)
  			      slots &rest initargs
  			      &key &allow-other-keys)
    (macrolet ((uncadr (name)
  	       (with-gensyms (it)
  		 (let ((,it (getf initargs ,name)))
  		   (when (and ,it (consp ,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)
      ;; FIXME: resolve COMPOSITE-NAME ...
      (apply #'call-next-method instance slots initargs)
      ))
  
  
  (defmethod direct-slot-definition-class ((class metamodel-stub-class)
  					 &rest initargs)
    (destructuring-bind (&key source-local-name &allow-other-keys)
        initargs
  