350 |
(subtypep* 'extended-char 'atom) |
(subtypep* 'extended-char 'atom) |
351 |
t t) |
t t) |
352 |
|
|
353 |
|
(deftest string-is-not-simple-vector |
354 |
|
(subtypep* 'string 'simple-vector) |
355 |
|
nil t) |
356 |
|
|
357 |
|
(deftest base-string-is-not-simple-vector |
358 |
|
(subtypep* 'base-string 'simple-vector) |
359 |
|
nil t) |
360 |
|
|
361 |
|
(deftest simple-string-is-not-simple-vector |
362 |
|
(subtypep* 'simple-string 'simple-vector) |
363 |
|
nil t) |
364 |
|
|
365 |
|
(deftest simple-base-string-is-not-simple-vector |
366 |
|
(subtypep* 'simple-base-string 'simple-vector) |
367 |
|
nil t) |
368 |
|
|
369 |
|
(deftest bit-vector-is-not-simple-vector |
370 |
|
(subtypep* 'bit-vector 'simple-vector) |
371 |
|
nil t) |
372 |
|
|
373 |
|
(deftest simple-bit-vector-is-not-simple-vector |
374 |
|
(subtypep* 'simple-bit-vector 'simple-vector) |
375 |
|
nil t) |
376 |
|
|
377 |
;;; Error checking of type-related functions |
;;; Error checking of type-related functions |
378 |
|
|
379 |
(deftest subtypep.error.1 |
(deftest subtypep.error.1 |