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:       (print-diff-item diff-item))))
  
  (defun print-all-quicklisps-diff-report (destination joined-index)
    (let ((quicklisps (mapcar #'car (distinct-addresses joined-index '(:lib-world)))))
      (loop
         for qls on (sort quicklisps #'string>)
  
negative.code:              (fail-list '(:failed-tests ("a" "b") :known-to-fail ("b" "c"))))))
  
  (defparameter *lib-status-regressions-rules*
    `( ;new type              ;old type    ; do the new-result has regressions comparing to old-status?
      (()                     t            nil)
      (:ok                    t            nil)
      (:no-resource           t            nil)
  