+ (thrown-condition :initarg :thrown-condition
+ :reader thrown-condition))
+ (:documention "Stored failures/errors in test-result slots"))
+
+(defun make-test-failure (test condition)
+ (make-instance 'test-failure :failed-test test
+ :thrown-condition condition))