anchor.diff:  (defun find-prefix (prefix namespace)
     ;; FIXME: ADD ERRORP
     (declare (type simple-string prefix)
  -	   (type namespace namespace)
  +	   (type prefix-qualified-namespace namespace)
   	   (values (or null simple-string) &optional))
  -  (find prefix (namespace-prefix-table namespace)
  +  (find prefix (prefix-qualified-namespace-prefix-table namespace)
   	:test #'string=))
   
   
  
positive.code: though the respective object would be FINALIZED-P"
    (declare (type string prefix uri)
  	   (type namespace-registry registry)
  	   (values namespace simple-string &optional))
    (let ((pfx (simplify-string prefix))
  	(urix (simplify-string uri)))
      (declare (type simple-string pfx urix))
  
negative.code: 		       'simple-vector)))
      (setf (namespace-registry-namespace-table instance)
  	  table)
      (finalize (namespace-registry-null-namespace instance))
      (do-vector (ns (the simple-vector table) instance)
        (finalize ns))))
  
  