anchor.diff:                         :if-does-not-exist :create)
       (format out "(:version ~a~%" (getf db :version))
       (format out " :runs (")
  -    (print-list-elements out (getf db :runs) "~%~8t"
  -                         #'(lambda (elem)
  -                             (let ((descr (getf elem :descr)))
  -                               (format out
  -                                       "(:descr (:lisp ~s :lib-world ~s :time ~s :run-duration ~s :contact (:email ~s))~%"
  -                                       (getf descr :lisp)
  -                                       (getf descr :lib-world)
  -                                       (getf descr :time)
  -                                       (getf descr :run-duration)
  -                                       (getf (getf descr :contact) :email)))
  -                             (format out "~9t:results (")
  -                             (print-list-elements out
  -                                                  (sort (copy-list (getf elem :results))
  -                                                        #'string< :key #'(lambda (lib-result)
  -                                                                           (getf lib-result :libname)))
  -                                                  "~%~19t"
  -                                                  #'(lambda (lib-result)
  -                                                      (format out
  -                                                              "(:libname ~s :status ~a :test-duration ~s :log-byte-length ~s :log-blob-key ~s)"
  -                                                              (getf lib-result :libname)
  -                                                              (print-test-status nil (getf lib-result :status))
  -                                                              (getf lib-result :test-duration)
  -                                                              (getf lib-result :log-byte-length)
  -                                                              (getf lib-result :log-blob-key))))
  -                             (format out "))")))
  +    (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*))
  
positive.code:                   (get-output-stream-string dest)
                    nil))))))
  
  (defun save-db (&optional (db *db*) (stream-or-path *standard-db-file*))
    (with-open-file (out stream-or-path
                         :direction :output
  
negative.code:   (format out "<th colspan=\"~A\">~A</th>" colspan text))
  
  (defun print-rotated-col-header (colspan text out)
    ;; 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))
  