From 59e9e751e1505d74d2514caa03b8500c175d2c7d Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Tue, 28 Jun 2005 14:16:52 +0000
Subject: [PATCH] More useful failure output from some
 upgraded-array-element-type tests

---
 ansi-tests/upgraded-array-element-type.lsp | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/ansi-tests/upgraded-array-element-type.lsp b/ansi-tests/upgraded-array-element-type.lsp
index 2f8d42eb..72a319d3 100644
--- a/ansi-tests/upgraded-array-element-type.lsp
+++ b/ansi-tests/upgraded-array-element-type.lsp
@@ -55,8 +55,9 @@
 (deftest upgraded-array-element-type.4
   (loop for type in *upgraded-array-types-to-check*
 	for upgraded-type = (upgraded-array-element-type type)
-	always (empirical-subtypep type upgraded-type))
-  t)
+	unless (empirical-subtypep type upgraded-type)
+	collect (list type upgraded-type))
+  nil)
 
 ;; Include an environment (NIL, denoting the default null lexical
 ;; environment)
@@ -64,8 +65,9 @@
 (deftest upgraded-array-element-type.5
   (loop for type in *upgraded-array-types-to-check*
 	for upgraded-type = (upgraded-array-element-type type nil)
-	always (empirical-subtypep type upgraded-type))
-  t)
+	unless (empirical-subtypep type upgraded-type)
+	collect (list type upgraded-type))
+  nil)
 
 (deftest upgraded-array-element-type.6
   (macrolet
-- 
GitLab