anchor.diff:    (declare (special uri-to-package))
     (if ns
         (or (cdr (assoc (or (lookup-namespace ns env)
  -                          (error "Undeclared namespace ~S refernced." ns))
  +                          (error 'reference-to-undeclared-namespace :namespace ns))
                         uri-to-package :test #'string=))
  -          (error "Unrecognized namespace ~S referenced." ns))
  +          (error 'reference-to-undeclared-namespace :namespace ns))
         *package*))
   
   (defun intern-xml-name (name ns env)
  
positive.code: ;;; CONDITIONS
  ;;;-----------------------------------------------------------------------------
  (define-condition xml-parse-error (error) 
    ((line :initarg :line :reader error-line)))
  
  ;;;-----------------------------------------------------------------------------
  ;;; NODE INTERFACE
  
negative.code:                 (parse-integer ent :start 2 :end (- (length ent) 1) :radix 16)
                  (parse-integer ent :start 1 :end (- (length ent) 1)))))
        (second (assoc ent *entities* :test #'string=))
        (error 'unresovable-entity :entity ent)))
  
  (declaim (inline peek-stream))
  (defun peek-stream (stream)
  