From 57c0c407fab0742f44dc1eef2fdb93c677683092 Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Mon, 4 Jul 2005 13:17:17 +0000
Subject: [PATCH] Add :allow-nil-arrays annotation to several tests

---
 ansi-tests/base-string.lsp        |  1 +
 ansi-tests/simple-base-string.lsp |  3 +++
 ansi-tests/string.lsp             | 10 +++++-----
 3 files changed, 9 insertions(+), 5 deletions(-)

diff --git a/ansi-tests/base-string.lsp b/ansi-tests/base-string.lsp
index 451166e7..e3c2a743 100644
--- a/ansi-tests/base-string.lsp
+++ b/ansi-tests/base-string.lsp
@@ -22,6 +22,7 @@
   t t)
 
 (deftest base-string.5
+  :notes (:allow-nil-arrays)
   (subtypep* '(array nil (*)) 'base-string)
   nil t)
 
diff --git a/ansi-tests/simple-base-string.lsp b/ansi-tests/simple-base-string.lsp
index 8821bbce..41831706 100644
--- a/ansi-tests/simple-base-string.lsp
+++ b/ansi-tests/simple-base-string.lsp
@@ -38,13 +38,16 @@
   nil t)
 
 (deftest simple-base-string.9
+  :notes (:allow-nil-arrays)
   (subtypep* '(simple-array nil (*)) 'simple-base-string)
   nil t)
 
 (deftest simple-base-string.10
+  :notes (:allow-nil-arrays)
   (typep* (make-array '(0) :element-type nil) 'simple-base-string)
   nil)
 
 (deftest simple-base-string.11
+  :notes (:allow-nil-arrays)
   (typep* (make-array '(12) :element-type nil) 'simple-base-string)
   nil)
diff --git a/ansi-tests/string.lsp b/ansi-tests/string.lsp
index 70a97192..e8a33a2c 100644
--- a/ansi-tests/string.lsp
+++ b/ansi-tests/string.lsp
@@ -40,17 +40,17 @@
   nil)
 
 (deftest string.8 
-  :notes (:nil-vectors-are-strings)
+  :notes (:allow-nil-arrays :nil-vectors-are-strings)
   (subtypep* '(array nil (*)) 'string)
   t t)
 
 (deftest string.9
-  :notes (:nil-vectors-are-strings)
+  :notes (:allow-nil-arrays :nil-vectors-are-strings)
   (subtypep* '(array nil 1) 'string)
   t t)
 
 (deftest string.10
-  :notes (:nil-vectors-are-strings)
+  :notes (:allow-nil-arrays :nil-vectors-are-strings)
   (string (make-array '(0) :element-type nil))
   "")
 
@@ -59,12 +59,12 @@
   t)
 
 (deftest string.12
-  :notes (:nil-vectors-are-strings)
+  :notes (:allow-nil-arrays :nil-vectors-are-strings)
   (typep* (make-array '(17) :element-type nil) 'string)
   t)
 
 (deftest string.13
-  :notes (:nil-vectors-are-strings)
+  :notes (:allow-nil-arrays :nil-vectors-are-strings)
   (typep* (make-array '(0) :element-type nil) 'string)
   t)
 
-- 
GitLab