Skip to content
Snippets Groups Projects
Commit 57c0c407 authored by pfdietz's avatar pfdietz
Browse files

Add :allow-nil-arrays annotation to several tests

parent 0a58110d
No related branches found
No related tags found
No related merge requests found
......@@ -22,6 +22,7 @@
t t)
(deftest base-string.5
:notes (:allow-nil-arrays)
(subtypep* '(array nil (*)) 'base-string)
nil t)
......
......@@ -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)
......@@ -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)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment