((msg :initform nil :initarg :msg :accessor msg))
(:documentation "Base class for all test failures."))
(defun failure-msg (msg &optional format-str &rest args)
"Signal a test failure and exit the test."
((msg :initform nil :initarg :msg :accessor msg))
(:documentation "Base class for all test failures."))
(defun failure-msg (msg &optional format-str &rest args)
"Signal a test failure and exit the test."