anchor.diff:    (let ((status (normalize-status (getf lib-test-result :status))))
       (format nil "<a class=\"test-status ~A\" href=\"~A\">~A</a>" 
               (status-css-class status)
  -            (lib-log-uri test-run (getf lib-test-result :libname))
  +            (lib-log-uri test-run lib-test-result)
               (single-letter-status status))))
   
   (defun summary-table-html (&optional 
  
positive.code:           "c<br/>l<br/>|<br/>a<br/>b<br/>c")
  |#
  
  (defun lib-log-uri (test-run lib-name)
    (format nil "file://~A~A" 
            (run-directory (run-descr test-run))
            (string-downcase lib-name)))
  
  (defun single-letter-status (normalized-status) 
    (case normalized-status
  
negative.code:    - Test Runs report: every test run as a row in a table
       + legend or a tooltip in the report for test statuses
       + color for statuses
       + use the online blob URL in the report
     - A table table -like report of library test results, allowing
       rows/columns to be any of quicklisp distro, lisp version
       library name. With grouping and sorging.
  