anchor.diff:  (defmethod process-span-in-span-p ((span-2 t) (span-1 (eql 'coded-reference-link))) 
     (values nil))
   
  -;;; ---------------------------------------------------------------------------
  -
   (defmethod scan-one-span ((line string) name regex scanners)
     (when (process-span-in-span-p name *current-span*)
       (let ((found? nil)
  
positive.code:   chunk)
  
  (defun scan-lines-with-scanners (lines scanners)
    (when (consp lines)
      (iterate-elements
       scanners
       (lambda (scanner)
  
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 
  