anchor.diff:  		   (cond
   		     ((instance-finalized-p ns)
   		      (error "Unable to add prefix ~s to ~
  -	finalized namespace ~s"
  +finalized namespace ~s"
   			     pfx ns))
   		     (t
   		      ;; FIXME: Thread safety....?
  
positive.code: 
  ;;; * Utils for Name Validation
  
  #+NCNAMES
  (defun ncname-rune-p (rune) ;; Fixme: Test this.
  
    ;; NB, rune is character in SBCL, so this won't work.
    ;;
    ;; and CXML's xml-name-rune-p code is not all accessible after the
    ;; file is loaded
  
    (locally (declare #.cxml::*fast*)) ;; (locally?)
    (declare (type runes:rune rune)
  	   (values boolean &optional))
    (or (cxml::letter-rune-p rune)
        (= rune #.(char-code #\-))
        (= rune #.(char-code #\.))
        (= rune #.(char-code #\_))
        (cxml::digit-rune-p* rune)
        (cxml::combining-rune-p rune)
        (cxml::extender-rune-p rune)))
  
  #+NCNAMES
  (defun ncname-p (rod)
    (locally (declare #.cxml::*fast*)
      (inline cxml::name-start-rune-p ncname-rune-p)) ;; (locally?)
    (declare (type runes:rod rod)
  	   (values boolean &optional))
    ;; pattern = \i\c* ∩ [\i[:]][\c[:]]
    ;; whiteSpace = collapse
    (and (not (zerop (length rod)))
         (cxml::name-start-rune-p (aref rod 0))
         (every #'ncname-rune-p rod)))
  #+NCNAMES
  (deftype ncname ()
    '(and string (satisfies ncname-p))) ;; alternately, rod??
  
  #+NCNAMES
  (deftype simple-ncname ()
    '(and simple-string (satisfies ncname-p))) ;; alternately, rod??
  
  
  ;;; * Namespace Qualified Names (QNames)
  
negative.code:      (puri:intern-uri ns-string *qname-ns-registry*))))
  
  (defun ensure-qname-string (ncname registry)
    (declare (type string ncname)
  	   (type namespace registry)
  	   (values simple-ncname &optional))
    (locally (declare (inline cxml::valid-ncname-p))
      (let ((ncname-s (simplify-string ncname))
  	  (table (namespace-local-names-table registry)))
        (or (gethash ncname-s table)
  	  (progn
  	    (unless (cxml::valid-ncname-p ncname)
  	      (error 'type-error :expected-type 'ncname :datum ncname))
  	    (setf (gethash ncname-s table) ncname-s))))))
  
  #|
  
  