From 75b62cfd2eef1d962b0b99f79d80192aca2169fb Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Thu, 19 Jun 2003 02:25:54 +0000
Subject: [PATCH] More test fixups due to (array nil)s are strings.

---
 ansi-tests/ansi-aux.lsp       |  7 +++----
 ansi-tests/subtypep-array.lsp | 18 +++++++++---------
 2 files changed, 12 insertions(+), 13 deletions(-)

diff --git a/ansi-tests/ansi-aux.lsp b/ansi-tests/ansi-aux.lsp
index ffe00ba0..c1570d32 100644
--- a/ansi-tests/ansi-aux.lsp
+++ b/ansi-tests/ansi-aux.lsp
@@ -620,15 +620,14 @@ the condition to go uncaught if it cannot be classified."
 	 (reader-error parse-error)
 	 (reader-error stream-error)
 	 )))
-  #|
   (when (subtypep* 'character 'base-char)
     (setq table
 	  (append
 	   '((character base-char)
-	     (string base-string)
-	     (simple-string simple-base-string))
+	     ;; (string base-string)
+	     ;; (simple-string simple-base-string)
+	     )
 	   table)))
-  |#
   
   table))
 
diff --git a/ansi-tests/subtypep-array.lsp b/ansi-tests/subtypep-array.lsp
index 41e528db..49d0d018 100644
--- a/ansi-tests/subtypep-array.lsp
+++ b/ansi-tests/subtypep-array.lsp
@@ -106,17 +106,17 @@
   (subtypep* '(vector character) 'string)
   t t)
 
-(deftest string-is-vector-of-character.3
+(deftest string-is-not-vector-of-character.3
   (subtypep* '(string *) '(vector character))
-  t t)
+  nil t)
 
 (deftest string-is-vector-of-character.4
   (subtypep* '(vector character) '(string *))
   t t)
 
-(deftest string-is-vector-of-character.5
+(deftest string-is-not-vector-of-character.5
   (subtypep* '(string 17) '(vector character 17))
-  t t)
+  nil t)
 
 (deftest string-is-vector-of-character.6
   (subtypep* '(vector character 17) '(string 17))
@@ -170,23 +170,23 @@
   (subtypep* '(simple-array base-char (17)) '(simple-base-string 17))
   t t)
 
-(deftest simple-string-is-simple-1d-array-of-character.1
+(deftest simple-string-is-not-simple-1d-array-of-character.1
   (subtypep* 'simple-string '(simple-array character (*)))
-  t t)
+  nil t)
 
 (deftest simple-string-is-simple-1d-array-of-character.2
   (subtypep* '(simple-array character (*)) 'simple-string)
   t t)
 
-(deftest simple-string-is-simple-1d-array-of-character.3
+(deftest simple-string-is-not-simple-1d-array-of-character.3
   (subtypep* '(simple-string *) '(simple-array character (*)))
-  t t)
+  nil t)
 
 (deftest simple-string-is-simple-1d-array-of-character.4
   (subtypep* '(simple-array character (*)) '(simple-string *))
   t t)
 
-(deftest simple-string-is-simple-1d-array-of-character.5
+(deftest simple-string-is-not-simple-1d-array-of-character.5
   (subtypep* '(simple-string 17) '(simple-array character (17)))
   nil t)
 
-- 
GitLab