From e2358ba4f369d90a24cc9f2966a88e46a5db2568 Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Fri, 24 Jun 2005 00:09:07 +0000 Subject: [PATCH] Add some more guards to make-condition.[34] --- ansi-tests/make-condition.lsp | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/ansi-tests/make-condition.lsp b/ansi-tests/make-condition.lsp index 82a38c05..c87146c1 100644 --- a/ansi-tests/make-condition.lsp +++ b/ansi-tests/make-condition.lsp @@ -28,13 +28,19 @@ (deftest make-condition.3 (let* ((tp '(or program-error type-error)) (c (make-condition tp))) - (notnot-mv (typep c tp))) + (or (not (and (subtypep tp condition) + (or (subtypep 'program-error tp) + (subtypep 'type-error tp)))) + (notnot-mv (typep c tp)))) t) (deftest make-condition.4 (let* ((tp '(and simple-error type-error)) (c (make-condition tp))) - (notnot-mv (typep c tp))) + (or (not (and (subtypep 'simple-error tp) + (subtypep 'type-error tp) + (subtypep tp 'condition))) + (notnot-mv (typep c tp)))) t) ;;; Error tests -- GitLab