anchor.diff:  
   (defmethod print-object ((instance namespace-registry) stream)
     (print-unreadable-object (instance stream :type t :identity t)
  -    (princ (length (namespace-registry-namespace-table instance))
  -	   stream)
  -    (write-char #\Space stream)
  -    (princ (instance-finalized-p instance) stream)))
  +    (format stream "~D ~A"
  +	    (length (namespace-registry-namespace-table instance))
  +	    (instance-finalized-p instance))))
   
   
   (defmethod finalize ((instance namespace-registry))
  
positive.code: (defun make-namespace (ns-string)
    (declare (type string ns-string))
    (let ((s (simplify-string ns-string)))
      (%make-namespace
       ns-string
       (puri:intern-uri ns-string *qname-ns-registry*))))
  
  (defun ensure-qname-string (ncname ns )
    (declare (type string ncname)
  
negative.code: (defstruct (namespace
  	    (:include finalizable-instance)
  	    (:conc-name #:namespace-)
  	    (:constructor %make-namespace (string uri
  					   &optional
  					     (package
  					      (find-package* string)))))
    (string #.(simplify-string "")
     :type simple-string)
    (uri (allocate-instance (find-class 'puri:uri))
  