188 |
|
|
189 |
(deftest simple-string-is-simple-1d-array-of-character.5 |
(deftest simple-string-is-simple-1d-array-of-character.5 |
190 |
(subtypep* '(simple-string 17) '(simple-array character (17))) |
(subtypep* '(simple-string 17) '(simple-array character (17))) |
191 |
t t) |
nil t) |
192 |
|
|
193 |
(deftest simple-string-is-simple-1d-array-of-character.6 |
(deftest simple-string-is-simple-1d-array-of-character.6 |
194 |
(subtypep* '(simple-array character (17)) '(simple-string 17)) |
(subtypep* '(simple-array character (17)) '(simple-string 17)) |