anchor.diff: +;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: test-grid; Base: 10; indent-tabs-mode: nil; coding: utf-8; show-trailing-whitespace: t -*-
  +
   (defpackage #:test-grid-reporting
     (:use :cl))
   
  
positive.code:              (lisp (getf run-descr :lisp))
               (lib-world (getf run-descr :lib-world))
               (libname (getf lib-result :libname)))
          (push lib-result
                (gethash (list lisp lib-world libname) all-results))))
      all-results))
  
  
negative.code:             (push (test-grid::make-run run-descr lib-results) runs))))
        runs)))
  
  ;; ------ a lib result with a reference to it's test run ------
  
  (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*
    (merge-pathnames "test-runs-report-template.html"
  