anchor.diff:      (otherwise "")))
   
   (defun render-single-letter-status (test-run lib-test-result)
  -  (declare (ignore test-run))
     (if (null lib-test-result)
         "&nbsp;"
         (let ((status (aggregated-status (getf lib-test-result :status))))
           (format nil "<a class=\"test-status ~A\" href=\"~A\">~A</a>"
                   (status-css-class status)
  -                (lib-log-uri lib-test-result)
  +                (lib-log-uri (make-instance 'joined-lib-result :lib-result lib-test-result :test-run test-run))
                   (single-letter-status status)))))
   
   (defun test-runs-table-html (&optional
  
positive.code: (defpackage #:test-grid-reporting
    (:use :cl))
  
  
negative.code: 
            ;; order our results-diff report by library name
            (setf results (sort (copy-list results)
                                (lambda (joined-lib-result-a joined-lib-result-b)
                                  (string< (getf (lib-result joined-lib-result-a) :libname)
                                           (getf (lib-result joined-lib-result-b) :libname)))))
  
            (dolist (joined-lib-result results)
              (let ((status (getf (lib-result joined-lib-result) :status)))
                (dolist (joined-lib-result-prev results-prev)
                  (let ((status-prev (getf (lib-result joined-lib-result-prev) :status)))
                    (flet ((make-diff-item ()
                             (make-instance 'quicklisp-diff-item
                                            :libname (getf (lib-result joined-lib-result) :libname)
                                            :lisp (funcall lisp-getter key)
                                            :new-status status
                                            :old-status status-prev)))
                      (cond ((has-regressions-p status status-prev)
                             (push (make-diff-item)
                                   (have-regressions diff)))
  