anchor.diff:     - 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
  +     + 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.
  
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: ==================================================
  ==========    Milestone: release 0    ============
  ==================================================
   - finalize the terminology we use in the code
     to refer our main data: 
     - test status for a particular library
     - library test result object (includes the status 
       as well as log length, the key of the log
       in the online blob store, probably the
       library test duration)
     - list of library test results in a particular test 
       run
     - test run description, consists of lisp name,
       libraries set (think quicklisp distro),
       the user contacts, total test run duration,
       etc.
   + more abstract accessor to parts of DB info instead of
     getf by properties: run-descr, run-results.
     1h
  