anchor.diff:        )  ;; block local-binding
       ))) ;; defun
   
  +;; FIXME: For XML namespace support, defun ADD-DEFAULT-XML-NAMESPACES
  +;; cf. "xml" and "xmlns" prefixes' standard namespace bindings
  +
   #|
   
    (defparameter *r* (make-namespace-registry))
  
positive.code: 
  ;;; ** Meta Registry (Multiple Namespaces)
  
  (defstruct (namespace-registry
  	    (:include finalizable-instance)
  	    (:constructor make-namespace-registry ())
  
negative.code:   (uri (allocate-instance (find-class 'puri:uri))
     ;; FIXME: Use or discard the URI support
     :type puri:uri)
  
    (prefix-table (make-array #.+qname-buffer-extent+
  			    :element-type 'simple-string
  			    :adjustable t
  			    :fill-pointer 0)
     :type (or (vector simple-string) simple-vector))
  
    (local-names-table (make-hash-table
  		      :test #'equal
  		      :size #.+qname-buffer-extent+)
     ;; FIXME: Transform LOCAL-NAMES-TABLE to a symbol table in the
     ;; NAMESPACE-PACKAGE for NAMESPACE (using EQ for the hash table)
     :type hash-table))
  
  (defmethod print-object ((instance namespace) stream)
  