(defun impure-runner (files test-fun)
(format t "// Running impure tests (~a)~%" test-fun)
(let ((*package* (find-package :cl-user)))
(defun impure-runner (files test-fun)
(format t "// Running impure tests (~a)~%" test-fun)
(let ((*package* (find-package :cl-user)))