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:                 (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)))
  
  (declaim (inline peek-stream))
  (defun peek-stream (stream)
  
negative.code: ;;; CONDITIONS
  ;;;-----------------------------------------------------------------------------
  (define-condition xml-parse-error (error) 
    ((offset :accessor offset)))
  
  (define-condition unresovable-entity (xml-parse-error)
    ((entity :initarg :entity :accessor entity))
    (:report (lambda (c s)
               (format s "Unable to resolve entity ~S at offset ~D." (entity c) (offset c)))))
  
  (define-condition reference-to-undeclared-namespace (xml-parse-error)
    ((namespace :accessor namespace :initarg :namespace))
    (:report (lambda (c s)
               (format s  "Undeclared namespace ~S referenced." (namespace c)))))
  
  (define-condition unmatched-end-tag (xml-parse-error)
    ((expected :accessor expected :initarg :expected)
     (found :accessor found :initarg :found))
    (:report (lambda (c s)
               (format s "Unmatched end tag, found ~S and was expecting ~S." (found c) (expected c)))))
  
  ;;;-----------------------------------------------------------------------------
  ;;; NODE INTERFACE
  