anchor.diff:          (skip-document-start source)
           (funcall binder
                    source
  -                 nil
  -                 (create-bindings-returner))))))
  +                 nil)))))
   
   
   
  
positive.code: (defun create-bindings-returner ()
    "Return a function that does nothing but return its BINDINGS,
  effectively ending matching."
    (lambda (source bindings k)
      (declare (ignore source k))
      (nreverse bindings)))
  
  (defmacro catching-xml-errors (&body body)
  
negative.code: 
  (defvar *current-element-name*)
  
  (defun create-element-start-matcher (element-name next-fun)
    "Return a function that expects to see the start of ELEMENT-NAME
  next in SOURCE."
    (lambda (source bindings)
      (skip-characters source)
      (multiple-value-bind (type uri lname qname)
          (klacks:peek source)
  