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:                              (t (if (element-val c)
                                      (push (element-val c) children)))))))
         (or (eql (node-name elem) end-name)
             (error "Unmatched end tag, found ~S and was expecting ~S." end-name (node-name elem)))))
       ;; package up new node
       (progn
         (setf (node-children elem) (nreverse children))
  
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)
  