anchor.diff:    ()
     (:report
      (lambda (c s)
  -     (fomat s "Prefix ~s is already bound to ~s"
  -	    (name-condition-name c)
  -	    (namespace-condition-namespace c)))))
  +     (format s "Prefix ~s is already bound to ~s"
  +	     (name-condition-name c)
  +	     (namespace-condition-namespace c)))))
   
   (define-condition prefix-already-bound-error (error
   					      prefix-already-bound)
  
positive.code:       (split-string-1 #\: cname)
  
      (unless (cxml::valid-ncname-p prefix)
        (type-error :expected-type 'ncname :datum prefix))
      (unless (cxml::valid-ncname-p name)
        (type-error :expected-type 'ncname :datum name))
  
      (let ((ns (resolve-prefix-namespace prefix registry)))
        (unless ns
  
negative.code:    ;; NAMESPACE-PACKAGE for NAMESPACE (using EQ for the hash table)
     :type hash-table))
  
  #|
   (let ((ns (simplify-string "CL")))
    (defparameter *ns*
      (%make-namespace ns (puri:intern-uri ns))))
  
   (eq (namespace-package *ns*) (find-package "COMMON-LISP"))
   =EXPECT=> T
  |#
  
  
  (defmethod print-object ((instance namespace) stream)
    (print-unreadable-object (instance stream :type t :identity t)
      (format stream "~A ~A ~A ~A"
  	    (namespace-prefix-table instance)
  	    (namespace-string instance)
  	    (instance-finalized-p instance)
  	    (package-shortest-name (namespace-package instance)))))
  
  (defmethod finalize ((instance namespace))
    ;; FIXME: call FINALIZE sometime after model initialization
  