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: 
  (defmethod finalize ((instance namespace-registry))
    ;; FIXME: call FINALIZE sometime after model initialization
    ;;
    ;; FIXME: how to make the instance's slot values read-only ?
    ;;        ^ (needs CLOS, SLOT-VALUE-USING-CLASS, etc
  
    ; FIXME: Thread safety
    (let ((table (coerce (namespace-registry-namespace-table instance)
  		       'simple-vector)))
      (setf (namespace-registry-namespace-table instance)
  	  table)
      (do-vector (ns (the simple-vector table) instance)
        (finalize ns)
        )))
  
  #+NIL
  (defmethod unfinalize ((instance namespace-registry))
    (setf (namespace-registry-namespace-table instance)
  	...))
  
  ;;; * Condition Types NAME-CONDITION, NAMESPACE-CONDITION
  
  
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)
  