anchor.diff:                  (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 "Unable to resolve entity ~S" ent)))
  +      (error 'unresovable-entity :entity ent)))
   
   (declaim (inline peek-stream))
   (defun peek-stream (stream)
  
positive.code: ;;; CONDITIONS
  ;;;-----------------------------------------------------------------------------
  (define-condition xml-parse-error (error) 
    ((line :initarg :line :reader error-line)))
  
  ;;;-----------------------------------------------------------------------------
  ;;; NODE INTERFACE
  
negative.code:   (declare (special uri-to-package))
    (if ns
        (or (cdr (assoc (or (lookup-namespace ns env)
                            (error 'reference-to-undeclared-namespace :namespace ns))
                        uri-to-package :test #'string=))
            (error 'reference-to-undeclared-namespace :namespace ns))
        *package*))
  
  (defun intern-xml-name (name ns env)
  