(load "ritherdon-archive.asd")
(load "ritherdon-archive-tests.asd")

(ql:quickload "ritherdon-archive-tests")

(in-package :ritherdon-archive-tests)

(uiop:quit (if (run-all-tests) 0 1))