anchor.diff:                                                                    "other-user@gmail.com"
                                                                     "foo@gmail.com")))))
                   (lib-results '()))
  -            (dolist (lib *all-libs*)
  +            (dolist (lib test-grid::*all-libs*)
                 (push (list :libname lib :status (random-status) :log-char-length 50)
                       lib-results))
  -            (push (make-run run-descr lib-results) runs))))
  +            (push (test-grid::make-run run-descr lib-results) runs))))
         runs)))
   
   ;; ===================== Test Runs Report ====================
  
positive.code:   (princ "<table border=\"1\" class=test-table>" out)
  
    (let* ((row-comparator #'(lambda (rowa rowb)
                               (list< row-fields-sort-predicates
                                      rowa rowb)))
           (col-comparator #'(lambda (cola colb)
                               (list< col-fields-sort-predicates
                                      cola colb)))
           (rows (sort (distinct-addresses joined-index row-fields)
                       row-comparator))
           (row-spans (calc-spans rows))
  
negative.code:                 (single-letter-status status)))))
  
  (defun test-runs-table-html (&optional
                               (db test-grid::*db*)
                               (status-renderer 'render-single-letter-status))
    (with-output-to-string (out)
      (write-line "<table cellspacing=\"1\" class=\"tablesorter\">" out)
  
      (princ "<thead><tr style=\"vertical-align: bottom;\"><th>Start Time</th><th>Lib World</th><th>Lisp</th><th>Runner</th>" out)
      (dolist (lib test-grid::*all-libs*)
        (format out "<th>~A</th>" (vertical-html lib)))
      (write-line "</tr></thead>" out)
  
      (write-line "<tbody>" out)
      (dolist (run (getf db :runs))
        (let ((run-descr (test-grid::run-descr run))
              (lib-statuses (test-grid::run-results run)))
          (format out "<tr><td>~A</td><td>~A</td><td>~A</td><td>~A</td>"
                  (test-grid::pretty-fmt-time (getf run-descr :time))
                  (getf run-descr :lib-world)
                  (getf run-descr :lisp)
                  (getf (getf run-descr :contact) :email))
          (dolist (lib test-grid::*all-libs*)
            (format out "<td>~A</td>"
                    (funcall status-renderer run (find lib lib-statuses
                                                       :key (test-grid::getter :libname)))))
          (write-line "</tr>" out)))
      (write-line "</tbody>" out)
      (write-line "</table>" out)))
  
  (defun test-runs-report (&optional (db test-grid::*db*))
    (fmt-template *test-runs-report-template*
                  `(("{THE-TABLE}" . ,(test-runs-table-html db))
                    ("{TIME}" . ,(test-grid::pretty-fmt-time (get-universal-time))))))
  
  ;; ============== CSV export ==================
  (defun export-to-csv (out &optional (db test-grid::*db*))
    (format out "Lib World,Lisp,Runner,LibName,Status,TestDuration~%")
    (dolist (run (getf db :runs))
      (let ((run-descr (test-grid::run-descr run)))
        (dolist (lib-result (test-grid::run-results run))
          (format out "~a,~a,~a,~a,~a,~a~%"
                  (getf run-descr :lib-world)
                  (getf run-descr :lisp)
  