anchor.diff:  		      :fill-pointer len
   		      :adjustable t
   		      :initial-contents table))
  -    (do-vector (ns (the simple-vector table) instance)
  +    (do-vector (ns table instance)
         (unfinalize ns))))
   
   
  -;;; * Condition Types NAME-CONDITION, NAMESPACE-CONDITION
  -
  -(define-condition name-condition ()
  -  ((name
  -    :initarg :name
  -    :reader name-condition-name)))
  +;;; * Condition Type NAMESPACE-CONDITION
   
   
   (define-condition namespace-condition ()
  
positive.code: 	    ((and ns-p (string= (namespace-string ns-p) urix))
  	     (return-from local-binding
  	       (values ns-p pf-p)))
  	    ((and ns-p ensure-p)
  	     (assert-not-finalized ns-p
  				   "Unable to add prefix ~s"
  				   pf-p)
  
  	     ;; FIXME: Thread safety onto NS-P - lock NS-P
  	     (delete pf-p (namespace-prefix-table ns-p)
  		     :test #'eq)
  	     (restart-case
  		 (signal 'namespace-prefix-unbind
  			 :name pf-p
  			 :namespace ns-p)
  	       (continue)))
  	    (ns-p
  	     (error 'prefix-already-bound-error
  		    :name pf-p
  		    :namespaace ns-p))
  	    ))) ;; block ns-prefix
        (block ns-uri
  	;; 1) check for URI in Registry
  
negative.code: 			    :adjustable t
  			    :fill-pointer 0)
     :type (or (vector simple-string) simple-vector))
  
    (package (find-package "" t)
     :type package
     :read-only t)
  
    (local-names-table (make-hash-table
  		      :test #'equal
  