89 |
nil t) |
nil t) |
90 |
|
|
91 |
(deftest base-string.6 |
(deftest base-string.6 |
92 |
|
:notes (:nil-vectors-are-strings) |
93 |
(subtypep* 'string 'base-string) |
(subtypep* 'string 'base-string) |
94 |
nil t) |
nil t) |
95 |
|
|
124 |
t t) |
t t) |
125 |
|
|
126 |
(deftest simple-string.8 |
(deftest simple-string.8 |
127 |
|
:notes (:nil-vectors-are-strings) |
128 |
(subtypep* 'simple-string '(simple-array character (*))) |
(subtypep* 'simple-string '(simple-array character (*))) |
129 |
nil t) |
nil t) |
130 |
|
|
131 |
(deftest simple-string.9 |
(deftest simple-string.9 |
132 |
|
:notes (:nil-vectors-are-strings) |
133 |
(subtypep* 'simple-string '(simple-array base-char (*))) |
(subtypep* 'simple-string '(simple-array base-char (*))) |
134 |
nil t) |
nil t) |
135 |
|
|
136 |
(deftest simple-string.10 |
(deftest simple-string.10 |
137 |
|
:notes (:nil-vectors-are-strings) |
138 |
(subtypep* 'simple-string 'simple-base-string) |
(subtypep* 'simple-string 'simple-base-string) |
139 |
nil t) |
nil t) |
140 |
|
|