anchor.diff:  	  (return (values ns p)))))))
   
   
  -(defun bind-prefix (prefix uri registry &optional ensure-p)
  +(defun bind-prefix (prefix uri registry &optional move-p)
   "Ensure that the namespace prefix PREFIX is registered uniquely to
   the namespace URI in namespace-registry REGISTRY.
   
  
positive.code: 	;; 1.B.B) if not, add prefix to namespace, emit signal
  	;;        PREFIX-BIND
  	(multiple-value-bind (ns ns-new-p)
  	    (compute-namespace uri registry ensure-p)
  	  (flet ((add-prefix ()
  		   (assert-not-finalized ns
  					 "Unable to add prefix ~s"
  
negative.code: (defstruct (namespace
  	    (:include finalizable-instance)
  	    (:conc-name #:namespace-)
  	    (:constructor %make-namespace (string uri
  					   &optional
  					     (package
  					      (find-package* string)))))
    (string #.(simplify-string "")
     :type simple-string)
    (uri (allocate-instance (find-class 'puri:uri))
  