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:           (last-e 0))
        (flet ((sub-scan (it)
                 (let ((*current-span* name))
                   (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 
  
negative.code:   chunk)
  
  (defun scan-lines-with-scanners (lines scanners)
    (when (or (consp lines) 
  	    (typep lines 'cl-containers:iteratable-container-mixin))
      (iterate-elements
       scanners
       (lambda (scanner)
  