anchor.diff:  	  ((and ns-p (string= (namespace-string ns-p) urix))
   	   (return-from local-binding
   	     (values ns-p pf-p)))
  -	  ((and ns-p
  -		(instance-finalized-p namespace))
  +	  ((and ns-p (instance-finalized-p ns-p))
   	   (error "Unable to add prefix ~s to ~
   finalized namespace ~s"
   		  pf-p ns-p))
  
positive.code:   )
  
  
  |#
negative.code:   (declare (type simple-string prefix)
  	   (type namespace namespace)
  	   (values (or null simple-string) &optional))
    (find prefix (namespace-prefix-table namespace)
  	:test #'string=))
  
  
  (defstruct (qname
  