test/base.lisp @ f6d74c247168

Add #! and #; readers
author Steve Losh <steve@stevelosh.com>
date Sun, 03 Dec 2023 17:29:39 -0500
parents 6bf064d46006
children (none)
(in-package :losh.test)


(defmacro define-test (name &body body)
  `(test ,(intern (concatenate 'string (symbol-name 'test/) (symbol-name name)))
    (let ((*package* ,*package*))
      ,@body)))

(defun run-tests ()
  (1am:run))