anchor.diff:        (failures-different-p '("a") '("a" (:unexpected-ok . "b")))
         (failures-different-p :fail '())))
   
  -;; Refressions returns fail list which denotes
  -;; what is wrong with new-fail-list, comparint
  -;; to old-fail-list. Result is represented
  -;; by a fail list which may be a list of failures
  -;; or just a symbol :FAIL (but never :OK or :NO-RESOURCE).
  -;; Accepts any fail list as a parameter.
  +
   (defun regressions (new-fail-list old-fail-list)
  +  "Returns fail list which denotes
  +what is worse with new-fail-list, comparing
  +to old-fail-list. Result is represented
  +by a fail list which may be a list of failures
  +or just a symbol :FAIL (but never :OK or :NO-RESOURCE).
  +Accepts any fail list as a parameter."
     (labels (;; helper functions to write
              ;; the COND below, see how
              ;; the RESULTS-ARE is used
  
positive.code:   (format out "<th colspan=\"~A\">~A</th>" colspan text))
  
  (defun print-rotated-col-header (colspan text out)
    ;; Calculate the heiht so that rotated text fits
    ;; into it. Multiply the length of the text to
    ;; sine of the rotation (35 deegrees)
    ;; and add 3 ex for sure.
    (let ((css-height (+ (ceiling (* (sin (/ (* pi 35.0) 180.0))
  
negative.code: 
  (defun save-run-info (test-run directory)
    (let ((run-file (run-info-file directory)))
      (with-open-file (out run-file
                           :direction :output
                           :element-type 'character ;'(unsigned-byte 8) + flexi-stream
                           :if-exists :supersede
                           :if-does-not-exist :create)
        (print-test-run out test-run))))
  
  (defun gae-blobstore-dir ()
    (merge-pathnames "gae-blobstore/lisp-client/" test-grid-config:*src-base-dir*))
  