anchor.diff:  (defun blank-p (token)
     (typep token 'blank-lines))
   
  +(defun indentation-p (token)
  +  (typep token 'indentation))
  +
   (defun %indentation-compare (token spaces cmp)
     (and (typep token 'indentation) (funcall cmp (spaces token) spaces)))
   
  
positive.code:        (open-paragraph parser "p")
         (process-token parser token)))))
  
  (defun open-blockquote-or-list (parser indentation)
    (let ((section (open-element parser "blockquote")))
      (with-bindings (parser token)
  
negative.code:     :initarg :subdocument-tags
      :initform '(:note :comment)
      :accessor subdocument-tags)
     (structured-data-tags
      :initarg :structured-data-tags
      :initform '(:bibitem)
      :accessor structured-data-tags)
     (parse-links-p :initarg :parse-links-p :initform t :accessor parse-links-p)))
  
  (defclass element ()
  