anchor.diff:         (setf (tag section) (case (content token) (#\# :ol) (#\- :ul)))
          (open-list parser token indentation)
          (process-token parser token))
  -      ((and (indentation-p token) (= (spaces token) (+ (- indentation *blockquote-indentation*) 3)))
  +      ((indentation= token (+ (- indentation *blockquote-indentation*) *verbatim-indentation*))
  +       ;; This is a bit of a kludge. We need to fall through to the
  +       ;; underlying document indentation handlers but they won't work
  +       ;; until we change the parser's current-indentation. Which
  +       ;; suggests that's maybe a wrong approach.
          (decf (current-indentation parser) *blockquote-indentation*)
          (pop-frame-and-element section)
          (process-token parser token))
  -      ((and (indentation-p token) (< (spaces token) indentation))
  +      ((indentation< token indentation)
          (setf (current-indentation parser) (spaces token))
          (pop-frame-and-element section)
          (process-token parser token)))))
   
   (defun open-list (parser list-marker indentation)
     (with-bindings (parser token)
  -    ((and (indentation-p token) (< (spaces token) indentation))
  +    ((indentation< token indentation)
        (setf (current-indentation parser) (spaces token))
        (pop-frame)
        (process-token parser token))
  
positive.code:          (setf bol nil))
         (add-text parser token))
  
        ((and (indentation-p token) (>= (spaces token) (current-indentation parser)))
         (setf extra-indentation (- (spaces token) (current-indentation parser))))
  
        ((and (indentation-p token) (< (spaces token) (current-indentation parser)))
         (decf (current-indentation parser) *verbatim-indentation*)
         (pop-frame-and-element verbatim)
         (process-token parser token)))))
  
negative.code: (defun open-list-item (parser list-marker indentation)
    (let ((item (open-element parser "li")))
      (with-bindings (parser token)
        ((indentation< token indentation)
         (setf (current-indentation parser) (spaces token))
         (pop-frame-and-element item)
         (process-token parser token))
  