anchor.diff:  		    #.(simplify-string "::")
   		    (compute-coposite-name ns)))
         (t (values  name)))))
  -
  -#+FIXME ;; TO DO
  -(defun resolve-composite-name (name &optional (errorp t))
  -  (declare (type string name)
  -	   (values (or named-element null) &optional))
  -
  +#+NIL
  +(defmethod (setf resolve-composite-name) ((new-value bootstrap-model-component)
  +					  (name string)
  +					  (model bootstrap-model)
  +					  )
  +  ;; FIXME: complete this method definition
  +  )
  +
  +#+NIL
  +(defmethod resolve-composite-name ((name string)
  +				   (model bootstrap-model)
  +				   &optional (errorp t))
  +  ;; FIXME: complete this method definition
     )
   
   
  
positive.code:     ;; NB: This slot consumes the :namespaces instance initarg
      :type namespace-registry
      :accessor bootstrap-model-ns-registry)
     ))
  
  
  (defmethod shared-initialize :after ((instance bootstrap-model)
  
negative.code:        (find-class 'direct-property-transform-slot-definition))
        (t (call-next-method)))))
  
  (defmethod effective-slot-definition-class ((class metamodel-stub-class)
  					    &rest initargs)
    (destructuring-bind (&key name &allow-other-keys)
        initargs
  