coverage.lisp

(defun compile-and-load (path)
  (compile-file path)
  (load path))

;;; clozure common lisp
(setf ccl:*compile-code-coverage* t)

(compile-and-load "path/to/source")

;;(run-test)

(ccl:report-coverage "file")

;;; SBCL
(require 'sb-cover)

(declaim (optimize sb-cover:store-coverage-data))

(compile-and-load "path/to/source")

;; (run-test)
(sb-cover:report "dir")