anchor.diff:    (declare (type string cname)
   	   (type namespace-registry registry)
   	   (values (or simple-string null)
  -		   simple-namespace &optional))
  +		   namespace &optional))
     (multiple-value-bind (prefix name)
         (split-string-1 #\: cname)
   
  
positive.code: 
  
  (defgeneric (setf namespace-string) (new-value namespace)
    (:method ((new-value string) (namespace simple-namespace))
      (setf (simple-namespace-string namespace)
  	  new-value)))
  
  #+NAMESPACE-URI
  (defgeneric (setf namespace-uri) (new-value namespace)
    (:method ((new-value uri) (namespace simple-namespace))
      (setf (simple-namespace-uri namespace)
  	  new-value)))
  
  (defgeneric (setf namespace-package) (new-value namespace)
    (:method ((new-value package) (namespace simple-namespace))
      (setf (simple-namespace-package namespace)
  	  new-value)))
  
  (defgeneric (setf namespace-local-names-table) (new-value namespace)
    (:method ((new-value hash-table) (namespace namespace))
      (setf (%namespace-local-names-table namespace)
  
negative.code: 	    (:constructor make-namespace-registry
  		(&optional null-namespace))
  	    (:conc-name #:namespace-registry-))
    ;; the prefix-table slot uses a vector for its table, in not
    ;; expecting a lot of variety/breadth in the table's contents
    (prefix-table (make-array #.+qname-buffer-extent+
  			       :element-type 'prefix-qualified-namespace
  			       :adjustable t
  			       :fill-pointer 0)
  