diff --git a/ansi-tests/types-and-class.lsp b/ansi-tests/types-and-class.lsp index 1af303963c951381ea8f299f22d9acc20a61dccb..42220357fc33eb5a927dea8934e81ae6bae877d6 100644 --- a/ansi-tests/types-and-class.lsp +++ b/ansi-tests/types-and-class.lsp @@ -233,6 +233,19 @@ (notnot-mv (macro-function 'deftype)) t) +;;; TYPE-ERROR accessors + +(deftest type-error-datum.1 + (let ((c (make-condition 'type-error :datum 'a :expected-type 'integer))) + (type-error-datum c)) + a) + +(deftest type-error-expected-type.1 + (let ((c (make-condition 'type-error + :datum 'a :expected-type 'integer))) + (type-error-expected-type c)) + integer) + ;;; Error checking of type-related functions (deftest type-error-datum.error.1