Commit 897ac732 authored by pfdietz's avatar pfdietz

Added tests that string/bit-vector classes are not subtypes of simple-vector.

parent ad3bedd8
......@@ -350,6 +350,30 @@
(subtypep* 'extended-char 'atom)
t t)
(deftest string-is-not-simple-vector
(subtypep* 'string 'simple-vector)
nil t)
(deftest base-string-is-not-simple-vector
(subtypep* 'base-string 'simple-vector)
nil t)
(deftest simple-string-is-not-simple-vector
(subtypep* 'simple-string 'simple-vector)
nil t)
(deftest simple-base-string-is-not-simple-vector
(subtypep* 'simple-base-string 'simple-vector)
nil t)
(deftest bit-vector-is-not-simple-vector
(subtypep* 'bit-vector 'simple-vector)
nil t)
(deftest simple-bit-vector-is-not-simple-vector
(subtypep* 'simple-bit-vector 'simple-vector)
nil t)
;;; Error checking of type-related functions
(deftest subtypep.error.1
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment