anchor.diff:  ;; (resolve-prefix-namespace "nope" *r*) ;; expect error
   ;; (resolve-prefix-namespace "2xNull" *r* nil) ;; expect NIL, NIL
   
  -;; (namespace-registry-namespace-table *r*)
  +;; (namespace-registry-prefix-table *r*)
   ;; ^ informative
   
  -  (= (length (namespace-registry-namespace-table *r*)) 1)
  +  (= (length (namespace-registry-prefix-table *r*)) 1)
    ;; => T
   
   
  
positive.code: ;; values created in the Lisp image, for persistent representstion of
  ;; QName (Namespace URI and NCName) values
  
  (eval-when (:compile-toplevel :load-toplevel :execute)
  (defconstant +qname-buffer-extent+ 32))
  
  
  (defstruct (namespace
  	    (:include finalizable-instance)
  	    (:constructor nil)
  	    (:conc-name #:%namespace-))
    (local-names-table (make-hash-table
  		      :test #'equal
  		      :size #.+qname-buffer-extent+)
     :type hash-table))
  
  
  (defstruct (simple-namespace
  	    (:include namespace)
  	    (:constructor make-simple-namespace (package)))
    (string #.(simplify-string "")
     :type simple-string)
    #+NAMESPACE-URI ;; FIXME: Use or discard the URI support
    (uri (allocate-instance (find-class 'puri:uri))
     :type puri:uri)
  
    ;; FIXME: PACKAGE essentially duplicates LOCAL-NAMES-TABLE.
    ;; Consider replacing local-names-table search with FIND-SYMBOL calls
    (package (copy-structure (defpackage "SIMPLE-NAMESPACE-CLONE"))
     :type package
     ))
  
  
  (defstruct (prefix-qualified-namespace
  	    (:include simple-namespace)
  	    (:constructor
  		%make-namespace
  		(string #+NAMESPACE-URI uri
  			&optional
  			  (package (find-package* string)))))
    (prefix-table (make-array #.+qname-buffer-extent+
  			    :element-type 'simple-string
  			    :adjustable t
  
negative.code: 	     (namespace-condition-namespace c)))))
  
  
  (define-condition namespace-not-found-error (program-error
  					     namespace-not-found)
    ())
  
  