anchor.diff:  ==================================================
   ==========    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
  
positive.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.
  
negative.code:   (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 lib-test-result)
              (single-letter-status status))))
  
  (defun summary-table-html (&optional 
  