anchor.diff:  ;;; ("test-a2" "test-b" (:unexpected-ok "test-a1"))
   ;;;
   ;;; Fail-list may also somtimes be a single keyword: :OK, :FAIL or :NO-RESOURCE
  +;;;
  +;;; Note that fail-list does distinguish knoww failures from unknwown failures;
  +;;; all of them are represented just by stings naming failed tests.
   
   ;; Sort order for failures
   (defun fail-less (fail-a fail-b)
  
positive.code:             (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)"
  
negative.code:                          (getf db :runs)
                           "~%~8t"
                           #'(lambda (test-run)
                               (print-test-run out test-run 8)))
      (format out "))")))
  
  (defun read-db (&optional (stream-or-path *standard-db-file*))
  