anchor.diff:  
   (defgeneric resolve-composite-name (name model &optional errorp))
   
  -(defgeneric resolve-cname (name model &optional errorp)
  +(defgeneric resolve-qname (name model &optional errorp)
     (:method ((name string) (model bootstrap-model) &optional (errorp t))
       (let ((ns-reg (bootstrap-model-ns-registry model)))
         (multiple-value-bind (pfx lname)
  
positive.code:   ;;
    ;; This class option would effectively denote a packagedElement
    ;; definition for the defining class.
    (:cname "UML:Class")
  
    ;; "uml" in the following item denotes the namespace URI assigned
    ;; to the prefix "uml"
  
negative.code: 			    (cadr ,it)))
  		     (t (values ,it)))))))
      (let ((model (uncadr :model))
  	  (name (uncadr :qname)))
        (when name
        ;; FIXME: split qname into name, prefix. resolve.
  	(setf (getf initargs :qname)
  	      (simplify-string name)))
        (prog1 (apply #'call-next-method instance slots initargs)
  	(when (and name model)
  