anchor.diff:  though the respective object would be FINALIZED-P"
     (declare (type string prefix uri)
   	   (type namespace-registry registry)
  -	   (values namespace simple-string &optional))
  +	   (values prefix-qualified-namespace
  +		   simple-string &optional))
     (let ((pfx (simplify-string prefix))
   	(urix (simplify-string uri)))
       (declare (type simple-string pfx urix))
  
positive.code: is \"True\", an error of type PREFIX-NOT-FOUND-ERROR is signaled"
    (declare (type string prefix)
  	   (type namespace-registry registry)
  	   (values (or namespace null)
  		   (or simple-string null)
  		   &optional))
    (let ((namespaces (namespace-registry-namespace-table registry)))
  
negative.code: 			     (declare (ignore C))
  			     (invoke-restart 'CONTINUE))))
     (progn
       (defpackage "http://bar.example.com/")
       (defparameter *r* (make-namespace-registry))
       (bind-prefix *foo* *foo.ex* *r* t)
       (bind-prefix "bar" *foo.ex* *r* t)
       (bind-prefix "bar" "http://bar.example.com/" *r* t)
       (length (namespace-registry-namespace-table *r*))
       ))
   ;; => 2
  
  
  ;;; "last test"
  