anchor.diff:                                  distinct)
                          t))
                joined-index)
  -    (hash-table-keys distinct)))
  +    (test-grid::hash-table-keys distinct)))
   
   ;; Take into account the specifics of HTML tables - the
   ;; headers which group several rows or columns, will
  
positive.code:                  (subseq template (+ pos (length placeholder))))))
  
  (defun fmt-template (file substitutions-alist)
    (let ((template (file-string file)))
      (dolist (subst substitutions-alist)
        (setf template (replace-str template (car subst) (cdr subst))))
      template))
  
negative.code: 
  ;; =========== print all the reports at once =============
  
  (defun generate-reports (&optional (db test-grid::*db*))
  
    (with-report-file (out "test-runs-report.html")
      (write-sequence (test-runs-report db) out))
  