anchor.diff:                       (3bmd-grammar::parse-doc (text a)))
                      (split-sequence:split-sequence
                       :split  (list* block blank (mapcan 'identity cont))
  -                    :remove-empty-subseqs t))))
  -  )
  +                    :remove-empty-subseqs t)))))
   
   
   
  
positive.code:                                      3bmd-grammar::newline
                                       (& 3bmd-grammar::blank-line)))
    (:text t))
  (defrule definition-term-inlines (+ (and (! definition-marker)
                                           (+ (and (! 3bmd-grammar::endline)
                                                   3bmd-grammar::inline))
                                           definition-endline))
    (:destructure (&rest terms)
      (mapcar (lambda (a) (mapcar (lambda (b) 
                                    (or (first b) (second b)))
                                  (second a)))
              terms)))
  
negative.code:     line))
  
  
  (defrule definition-terms (and 3bmd-grammar::nonindent-space
                                 (! definition-marker)
                                 definition-term-inlines)
  