anchor.diff:    (:namespace
      ("uml" "http://www.omg.org/spec/UML/20110701" ))
     (:uml-name "UML::Element")
  -  (:is-absract . t))
  -
  -
  -(defclass namespace ()
  +  (:is-abstract . t))
  +
  +
  +(defclass named-element (element)
  +  ((name
  +    :source-attribute-p t
  +    :source-local-name "name"
  +    :initarg :name
  +    :type simple-string
  +    :accessor named-element-name))
  +  (:metaclass uml-class)
  +  (:model *uml-stub-metamodel*)
  +  (:namespace
  +   ("uml" "http://www.omg.org/spec/UML/20110701" ))
  +  (:uml-name "UML::NamedElement")
  +  (:is-abstract . t))
  +
  +
  +(defclass namespace (named-element)
     ((owned-rules
       :source-element-p t
       :source-local-name "ownedRule"
  
positive.code:   (:namespace
     ("uml" "http://www.omg.org/spec/UML/20110701" ))
    (:uml-name "UML::Namespace")
    (:is-absract . t))
  
  
  (defclass classifier (namespace type)
  
negative.code: ;;; * Post Hoc
  
  
  
  (defclass element ()
    ((owned-comments
      :source-element-p t
  