changeset 698: |
96958d3eb5b0 |
parent: |
bbd9024f2fe2
|
author: |
Richard Westhaver <ellis@rwest.io> |
date: |
Fri, 04 Oct 2024 22:04:59 -0400 |
permissions: |
-rw-r--r-- |
description: |
fixes |
1 ;;; lib/rt/err.lisp --- RT Errors 3 ;; Errors which may occur within the Regression Testing framework. 9 (define-condition test-condition () ()) 11 (define-condition test-failed (test-condition error) 12 ((reason :accessor fail-reason :initarg :reason :initform "unknown") 13 (name :accessor fail-name :initarg :name) 14 (form :accessor fail-form :initarg :form)) 15 (:documentation "Signaled when a test fails.") 16 (:report (lambda (c s) 17 (format s "The following expression failed: ~S~%~A."