anchor.diff:  	     (namespace-condition-namespace c)))))
   
   
  -(define-condition namespace-not-found-error (error
  +(define-condition namespace-not-found-error (program-error
   					     namespace-not-found)
     ())
   
  
positive.code: 	 (setf (gethash ncname-s table) ncname-s))
  	(t (error 'name-not-found :name ncname :namespace ns))))))
  
  #|
  
   (defpackage "http://foo.example.com/"
     (:use #:cl))
  
   (let ((reg (make-namespace "http://foo.example.com/"))
        (q "FOO"))
    (eq (compute-qname-string q reg t)
        (compute-qname-string q reg)))
  
  ;; =expect=> T
  
  
  |#
  
  (defun find-prefix (prefix namespace)
    ;; FIXME: ADD ERRORP
    (declare (type simple-string prefix)
  	   (type prefix-qualified-namespace namespace)
  	   (values (or null simple-string) &optional))
    (find prefix (prefix-qualified-namespace-prefix-table namespace)
  	:test #'string=))
  
  
  ;;; ** Meta Registry (Multiple Namespaces)
  
negative.code:   ;; Assumption: INSTANCE is finalized
    ;; FIXME: Thread Safety
    ;; FIXME: Regression testing
    (let* ((table (namespace-registry-prefix-table instance))
  	 (len (length (the simple-vector table))))
      (setf (namespace-registry-prefix-table instance)
  	  (make-array len
  		      :element-type 'namespace
  		      :fill-pointer len
  