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