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