anchor.diff:  
       (print-pivot-reports joined-index)
   
  -    (with-report-file (out "quicklisps-test-diff.txt")
  +    (with-report-file (out "quicklisps-test-diff.html")
         (print-all-quicklisps-diff-report out joined-index))))
   
  
positive.code: (defclass joined-lib-result ()
    ((test-run :initarg :test-run :accessor test-run)
     (lib-result :initarg :lib-result :accessor lib-result)))
  
  ;; ===================== Test Runs Report ====================
  (defvar *test-runs-report-template*
  
negative.code:                            (make-instance 'quicklisp-diff-item
                                            :libname (getf (lib-result joined-lib-result) :libname)
                                            :lisp (funcall lisp-getter key)
                                            :new-result joined-lib-result
                                            :old-result joined-lib-result-prev)))
                      (cond ((has-regressions-p status status-prev)
                             (push (make-diff-item)
                                   (have-regressions diff)))
  