38 |
nil t) |
nil t) |
39 |
|
|
40 |
(deftest simple-base-string.9 |
(deftest simple-base-string.9 |
41 |
:notes (:allow-nil-arrays) |
:notes (:allow-nil-arrays :nil-vectors-are-strings) |
42 |
(subtypep* '(simple-array nil (*)) 'simple-base-string) |
(subtypep* '(simple-array nil (*)) 'simple-base-string) |
43 |
nil t) |
nil t) |
44 |
|
|
45 |
(deftest simple-base-string.10 |
(deftest simple-base-string.10 |
46 |
:notes (:allow-nil-arrays) |
:notes (:allow-nil-arrays :nil-vectors-are-strings) |
47 |
(typep* (make-array '(0) :element-type nil) 'simple-base-string) |
(typep* (make-array '(0) :element-type nil) 'simple-base-string) |
48 |
nil) |
nil) |
49 |
|
|
50 |
(deftest simple-base-string.11 |
(deftest simple-base-string.11 |
51 |
:notes (:allow-nil-arrays) |
:notes (:allow-nil-arrays :nil-vectors-are-strings) |
52 |
(typep* (make-array '(12) :element-type nil) 'simple-base-string) |
(typep* (make-array '(12) :element-type nil) 'simple-base-string) |
53 |
nil) |
nil) |