anchor.diff:           (cond ((and (eql type :end-element)
                        (string= lname element-name))
                   (if (zerop depth)
  -                    (return (funcall kk source bindings k))
  +                    (return (funcall next-fun source bindings))
                       (decf depth)))
                  ((and (eql type :start-element)
                        (string= lname element-name))
  
positive.code:       (string
         (let ((*current-element-name* operator))
           (create-element-start-matcher *current-element-name*
                                         (create-binder (rest form) k))))
        (null
         (create-element-end-matcher *current-element-name*
                                     k))
        (cons
         (create-binder operator (create-binder (rest form) k)))
        (symbol
         (create-special-processor operator form k)))))
  
  (defun xml-source (source)
    (typecase source
  
negative.code:         (skip-document-start source)
          (funcall binder
                   source
                   nil)))))
  
  
  
  