From 9e87cbba6aae0a9af401062d5204cb1fc925be48 Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Wed, 18 Jun 2003 13:29:37 +0000
Subject: [PATCH] Bad test exposed by experimental alternate string types in
 sbcl.

---
 ansi-tests/subtypep-array.lsp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ansi-tests/subtypep-array.lsp b/ansi-tests/subtypep-array.lsp
index 33ea691e..41e528db 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))
-- 
GitLab