anchor.diff:  		 result))))))
     lines)
   
  -;;; ---------------------------------------------------------------------------
  -
   (defmethod scan-one-span ((line (eql nil)) name regex scanners)
     (declare (ignorable name regex scanners))
     (list ""))
  
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)
  