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