anchor.diff:    (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
  +  ;; Calculate the height 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))
  
positive.code:       (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)
    (labels (;; helper functions to write
             ;; the COND below, see how
             ;; the RESULTS-ARE is used
  
negative.code:                        :if-does-not-exist :create)
      (format out "(:version ~a~%" (getf db :version))
      (format out " :runs (")
      (print-list-elements out
                           (getf db :runs)
                           "~%~8t"
                           #'(lambda (test-run)
                               (print-test-run out test-run 9)))
      (format out "))")))
  
  (defun read-db (&optional (stream-or-path *standard-db-file*))
  