diff --git a/ansi-tests/upgraded-array-element-type.lsp b/ansi-tests/upgraded-array-element-type.lsp index 2f8d42eb030117a8ae2380776217f6b35cb0d2bc..72a319d3220f9a1cfc978f75c2b3bbef01cb6de6 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