anchor.diff:  		 ;; 1.B.B) if not, add prefix to namespace, emit signal
   		 ;;        PREFIX-BIND
   		 (multiple-value-bind (ns ns-new-p)
  -		     (compute-namespace uri registry move-p)
  +		     (compute-namespace uri registry t)
   		 (flet ((add-prefix ()
   			  (assert-not-finalized ns
   						"Unable to add prefix ~s"
  
positive.code: 		      :fill-pointer len
  		      :adjustable t
  		      :initial-contents table))
      (do-vector (ns table instance)
        (unfinalize ns))))
  
  
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"
  