anchor.diff:                     lines
                      (lambda (line) 
                        (setf result 
  -                           (append result (scan-one-span line name regex scanners)))))
  +                           (append result (scan-one-span
  +					   line name regex scanners)))))
                     result))))
     lines)
   
  
positive.code: ;;; ---------------------------------------------------------------------------
  
  (setf (item-at-1 *spanner-parsing-environments* '(code))
        `((,(create-scanner '(:sequence html)) html)))
  
  ;;; ---------------------------------------------------------------------------
  
  
negative.code:         (bind ((lines (slot-value chunk 'lines))
                 ((values scanners kind) (scanners-for-chunk chunk))
                 (*current-span* kind))
            (scan-lines-with-scanners lines scanners)))
    chunk)
  
  ;;; ---------------------------------------------------------------------------
  