anchor.diff:            (last-e 0))
         (flet ((sub-scan (it)
                  (let ((*current-span* name))
  -                 (scan-lines-with-scanners it scanners))))
  +		 (scan-lines-with-scanners it scanners))))
           (do-scans (s e gs ge regex line)
             (let ((registers (loop for s-value across gs
                                    for e-value across ge 
  
positive.code: 		 result))))))
    lines)
  
  ;;; ---------------------------------------------------------------------------
  
  (defmethod scan-one-span ((line (eql nil)) name regex scanners)
    (declare (ignorable name regex scanners))
    (list ""))
  
negative.code: 	 ,(make-markdown-scanner :regex (create-scanner '(:sequence auto-mail))
  				:name 'mail
  				:priority 15)
  	 ,(make-markdown-scanner :regex (create-scanner '(:sequence entity))
  				:name 'entity
  				:priority 16)
  	 ,(make-markdown-scanner :regex (create-scanner '(:sequence html))
  				:name 'html
  				:priority 17)
  	 ,(make-markdown-scanner 
  	   :regex (create-scanner '(:sequence line-ends-with-two-spaces))
  	   :name 'break
  	   :priority 1.8)
  	  )))
  
  (setf (item-at-1 *spanner-parsing-environments* '(code))
        `(,(make-markdown-scanner 
  