diff --git a/ansi-tests/subtypep-array.lsp b/ansi-tests/subtypep-array.lsp index 33ea691e65d4e9236e24208a812adf247e191e85..41e528dbbd33622cefde64b8c7ebf4b1778b8a58 100644 --- a/ansi-tests/subtypep-array.lsp +++ b/ansi-tests/subtypep-array.lsp @@ -188,7 +188,7 @@ (deftest simple-string-is-simple-1d-array-of-character.5 (subtypep* '(simple-string 17) '(simple-array character (17))) - t t) + nil t) (deftest simple-string-is-simple-1d-array-of-character.6 (subtypep* '(simple-array character (17)) '(simple-string 17))