anchor.diff:                         :if-does-not-exist :create)
       (print-db out db)))
   
  -(defun read-db (&optional (stream-or-path *standard-db-file*))
  +(defun read-db (stream-or-path)
     (with-open-file (in stream-or-path
                         :direction :input
                         :element-type 'character ;'(unsigned-byte 8) + flexi-stream
                         )
       (test-grid-utils::safe-read in)))
  +
  +(defun read-archive (&optional (archive-dir (standard-archive-dir)))
  +  (flet ((archive-file (file-name)
  +           (merge-pathnames file-name archive-dir)))
  +    (join-dbs (read-db (archive-file "db.lisp"))
  +              (read-db (archive-file "db2.lisp")))))
positive.code: (defun src-dir()
    (asdf:system-relative-pathname :test-grid-data #P"data/"))
  
  (defvar *standard-db-file*
    (merge-pathnames #P"../../cl-test-grid-results/db.lisp" (src-dir)))
  
  ;;; DB operations
  
  
negative.code:    #:make-db
     #:join-dbs
     #:read-db
     #:save-db
     #:read-archive
     #:add-test-run
     #:add-test-runs
     #:remove-test-runs
  