anchor.diff:                               (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)))))
  +           (error 'unmatched-end-tag :found end-name :expected (node-name elem)))))
        ;; package up new node
        (progn
          (setf (node-children elem) (nreverse children))
  
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)
  