1 ;;; bench.lisp --- Core Benchmarks 2 3 ;; 4 5 ;;; Code: 6 (in-package :std-user) 7 8 (defpkg :core/bench 9 (:use :std-lisp :rt :log :rt/bench) 10 (:export :core-coverage)) 11 12 (in-package :core/bench) 13 14 (defbench simple () "") 15 16 (defun core-coverage () 17 (sb-cover:clear-coverage) 18 (cover:with-coverage 19 (asdf:load-system :core/tests :force t) 20 (rt:do-tests :core)) 21 (cover:coverage-report))