anchor.diff:  * a
   "))
   
  -#++(esrap:untrace-rule 'definition-list :recursive t)
   
   #++
   (with-output-to-string (s)
  
positive.code:                      (3bmd-grammar::parse-doc (text a)))
                     (split-sequence:split-sequence
                      :split  (list* block blank (mapcan 'identity cont))
                      :remove-empty-subseqs t))))
    )
  
  
  
  
negative.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)))
  