anchor.diff:                    (get-output-stream-string dest)
                     nil))))))
   
  +(defun print-test-run (out test-run &optional (indent 0))
  +  (let ((descr (getf test-run :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 "~v,0t:results (" indent)
  +  (print-list-elements out
  +                       (sort (copy-list (getf test-run :results))
  +                             #'string<
  +                             :key #'(lambda (lib-result)
  +                                      (getf lib-result :libname)))
  +                       (format nil "~~%~~~Dt" (+ indent 10))
  +                       #'(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 "))"))
  +
   (defun save-db (&optional (db *db*) (stream-or-path *standard-db-file*))
     (with-open-file (out stream-or-path
                          :direction :output
  
positive.code: 
  (defun save-run-info (test-run directory)
    (let ((run-file (run-info-file directory)))
      (write-to-file test-run run-file)))
  
  (defun gae-blobstore-dir ()
    (merge-pathnames "gae-blobstore/lisp-client/" test-grid-config:*src-base-dir*))
  
negative.code:       (failures-different-p '("a") '("a" (:unexpected-ok . "b")))
        (failures-different-p :fail '())))
  
  
  (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
  