anchor.diff:      :initarg :owned-comments
       :type property-table
       :accessor class-direct-owned-comments-table))
  -  (:metaclass transform-class)
  +  (:metaclass metamodel-stub-class)
     (:model *boostrap-model*)
     (:model-metaclass  "uml:Class")
  -  (:composite-name "UML::Element")
  +  (:cname "UML::Element")
     (:is-abstract t))
   
   
  
positive.code: 	(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
      )))
  
  
  ;;; * UML-Class
  
  (def-uml-package "UML") ;; ?
  
  
  (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
  
negative.code:     :type boolean)
     )
  
    (:metaclass metamodel-stub-class)
  
    ;; FIXME: add :MODEL to other class definitions (?)
    (:model *boostrap-model*)
  