anchor.diff:  
   (defmethod finalize ((instance namespace))
     ;; 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: also finalize LOCAL-NAMES-TABLE ? (implementation-specific
  -  ;; finalization procedures, specifically w.r.t hash-tables' internal
  -  ;; vectors, where previously adjustsble - needs a 'finalized-p' flag
  -  ;; on the hash-table, then)
  +  ;; FIXME: Thread safety
     (setf (namespace-prefix-table instance)
   	(coerce (namespace-prefix-table instance)
   		'simple-vector)))
  +
  +
  +(defmethod unfinalize ((instance namespace))
  +  ;; Assumption: INSTANCE is finalized
  +  ;; FIXME: Regression testing
  +  ;; FIXME: Thread safety
  +  (let* ((table (namespace-prefix-table instance))
  +	 (len (length (the simple-vector table))))
  +    (setf (namespace-prefix-table instance)
  +	  (make-array len
  +		      :element-type 'simple-string
  +		      :fill-pointer len
  +		      :adjustable t
  +		      :initial-contents table))))
  +
   
   (declaim (type hash-table *qname-ns-registry*))
   
  
positive.code: ;;; * QName Resolvers
  
  (defun ensure-qname (cname registry)
    ;; FIXME: Reformat this function as ENSURE-QNAME-SYMBOL ?
    ;; (would require that NAMESPACE-PACKAGE be added to NAMESPACE as an
    ;; accessor)
    (declare (type string cname) (type namespace-registry registry)
  	   (values simple-string simple-string &optional))
    (multiple-value-bind (prefix name)
        (split-string-1 #\: cname)
      (unless (cxml::valid-ncname-p prefix)
        (type-error :expected-type 'ncname :datum prefix))
      (unless (cxml::valid-ncname-p name)
        (type-error :expected-type 'ncname :datum name))
      (let ((ns (resolve-prefix-namespace prefix registry)))
        (unless ns
  	(error 'prefix-not-found-error
  
negative.code:       )  ;; 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))
  