anchor.diff:                                (some-element-p (chunk-enders (current-chunk-parser)) 
                                                 (lambda (p) (funcall p line)))))
                    (when current 
  +		   ;; (format t "~%--> end")
                      (setf (ended-by current) code
                            (blank-line-after? current) (line-is-empty-p line))
                      (insert-item (chunks result) current)
  
positive.code:         :chunk-starters '(line-could-be-header-marker-p
  			  atx-header-p
                            line-is-not-empty-p )
          :parser-map '((line-starts-with-bullet-p bullets))))
  
  ;;; ---------------------------------------------------------------------------
  
  (setf (item-at-1 *chunk-parsing-environments* 'bullets)
        (make-instance 'chunk-parsing-environment
          :chunk-enders '(line-is-empty-p
                          line-could-be-header-marker-p
                          line-starts-with-bullet-p)
          :chunk-starters '(line-is-not-empty-p)))
  
  ;;; ---------------------------------------------------------------------------
  
  (defun maybe-strip-line (line)
    (bind ((env *parsing-environment*)
  
negative.code: ;;; ---------------------------------------------------------------------------
  
  (defun line-is-link-label-p (line)
    (scan #.(ppcre:create-scanner '(:sequence link-label)) line))
  
  ;;; ---------------------------------------------------------------------------
  
  