anchor.diff:         (open-paragraph parser "p")
          (process-token parser token))
   
  -      ((and (indentation-p token) (>= (spaces token) (+ (current-indentation parser) *verbatim-indentation*)))
  +      ((indentation>= token (+ (current-indentation parser) *verbatim-indentation*))
          (incf (current-indentation parser) *verbatim-indentation*)
          (open-verbatim parser (- (spaces token) (current-indentation parser)) "pre"))
     
  -      ((and (indentation-p token) (= (spaces token) (+ (current-indentation parser) *blockquote-indentation*)))
  +      ((indentation=  token (+ (current-indentation parser) *blockquote-indentation*))
          (incf (current-indentation parser) *blockquote-indentation*)
          (open-section parser (spaces token) "blockquote"))
     
  -      ((and (indentation-p token) (= (spaces token) (current-indentation parser))))
  +      ((indentation= token (current-indentation parser)))
       
         (:blank)
         (:eof (pop-frame-and-element body)))
  
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 indentation-p (token) (typep token 'indentation))
  
  (defun %indentation-compare (token spaces cmp)
    (and (indentation-p token) (funcall cmp (spaces token) spaces)))
  
  (defun indentation= (token spaces)
    (%indentation-compare token spaces #'=))
  
  (defun indentation< (token spaces)
    (%indentation-compare token spaces #'<))
  
  (defun indentation>= (token spaces)
    (%indentation-compare token spaces #'>=))
  
  (defgeneric to-sexp (thing))
  
  (defmethod to-sexp ((string string)) string)
  