anchor.diff:     #:make-db
      #:join-dbs
      #:read-db
  +   #:save-db
  +   #:read-archive
      #:add-test-run
      #:add-test-runs
      #:remove-test-runs
  
positive.code:                        :if-does-not-exist :create)
      (print-db out db)))
  
  (defun read-db (&optional (stream-or-path *standard-db-file*))
    (with-open-file (in stream-or-path
                        :direction :input
                        :element-type 'character ;'(unsigned-byte 8) + flexi-stream
                        )
      (test-grid-utils::safe-read in)))
  
negative.code:                            (print-test-run out test-run (+ indent 8))))
    (format out "))"))
  
  (defun save-db (db stream-or-path)
    (with-open-file (out stream-or-path
                         :direction :output
                         :element-type 'character ;'(unsigned-byte 8) + flexi-stream
  