diff --git a/ansi-tests/base-string.lsp b/ansi-tests/base-string.lsp index 451166e7b80cc2202fb99f3540ef5cd82a44860e..e3c2a743a18cb8f4af5285f80eb2fda83783044f 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 8821bbceb354e8d95d9d25d0772b3214eb9f11c4..418317064a17c5f7879f0024af936ed4f711dc5f 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 70a971928b9d05e6d18dfad417732ec95f0240d5..e8a33a2c9bf48976b50d6accea8412583cf6efe1 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)