anchor.diff:      helpers))
   
   ;; This is how we print data in table data cells.
  -(defun format-lib-results (out lib-results)
  -  (dolist (lib-result lib-results)
  -    (let ((status (aggregated-status (getf lib-result :status))))
  +(defun format-lib-results (out joined-lib-results)
  +  (dolist (joined-lib-result joined-lib-results)
  +    (let ((status (aggregated-status (getf (lib-result joined-lib-result) :status))))
         (format out "<a href=\"~a\" class=\"test-status ~a\">~a</a> "
  -              (lib-log-uri lib-result)
  +              (lib-log-uri joined-lib-result)
                 (status-css-class status)
                 (string-downcase status)))))
   
  
positive.code: (defpackage #:test-grid-reporting
    (:use :cl))
  
  
negative.code: ;; ("clisp-win-1" "quicklisp 2" "flexi-streams") -> (<test results>)
  ;; ...
  ;;
  
  (defun do-results-impl (db handler)
    "Handler is a function of two arguments: TEST-RUN and LIB-RESULT"
      (dolist (test-run (getf db :runs))
  