1 (in-package :all-tests) 2 3 (defsuite all-suite ()) 4 5 (defun run-all-tests (&key (use-debugger t)) 6 (clunit:run-suite 'all-suite :use-debugger use-debugger 7 :report-progress t)) 8 9 ;; (run-all-tests)