Skip to content
Snippets Groups Projects
Commit 75b62cfd authored by pfdietz's avatar pfdietz
Browse files

More test fixups due to (array nil)s are strings.

parent 26da172a
No related branches found
No related tags found
No related merge requests found
...@@ -620,15 +620,14 @@ the condition to go uncaught if it cannot be classified." ...@@ -620,15 +620,14 @@ the condition to go uncaught if it cannot be classified."
(reader-error parse-error) (reader-error parse-error)
(reader-error stream-error) (reader-error stream-error)
))) )))
#|
(when (subtypep* 'character 'base-char) (when (subtypep* 'character 'base-char)
(setq table (setq table
(append (append
'((character base-char) '((character base-char)
(string base-string) ;; (string base-string)
(simple-string simple-base-string)) ;; (simple-string simple-base-string)
)
table))) table)))
|#
table)) table))
......
...@@ -106,17 +106,17 @@ ...@@ -106,17 +106,17 @@
(subtypep* '(vector character) 'string) (subtypep* '(vector character) 'string)
t t) t t)
(deftest string-is-vector-of-character.3 (deftest string-is-not-vector-of-character.3
(subtypep* '(string *) '(vector character)) (subtypep* '(string *) '(vector character))
t t) nil t)
(deftest string-is-vector-of-character.4 (deftest string-is-vector-of-character.4
(subtypep* '(vector character) '(string *)) (subtypep* '(vector character) '(string *))
t t) t t)
(deftest string-is-vector-of-character.5 (deftest string-is-not-vector-of-character.5
(subtypep* '(string 17) '(vector character 17)) (subtypep* '(string 17) '(vector character 17))
t t) nil t)
(deftest string-is-vector-of-character.6 (deftest string-is-vector-of-character.6
(subtypep* '(vector character 17) '(string 17)) (subtypep* '(vector character 17) '(string 17))
...@@ -170,23 +170,23 @@ ...@@ -170,23 +170,23 @@
(subtypep* '(simple-array base-char (17)) '(simple-base-string 17)) (subtypep* '(simple-array base-char (17)) '(simple-base-string 17))
t t) t t)
(deftest simple-string-is-simple-1d-array-of-character.1 (deftest simple-string-is-not-simple-1d-array-of-character.1
(subtypep* 'simple-string '(simple-array character (*))) (subtypep* 'simple-string '(simple-array character (*)))
t t) nil t)
(deftest simple-string-is-simple-1d-array-of-character.2 (deftest simple-string-is-simple-1d-array-of-character.2
(subtypep* '(simple-array character (*)) 'simple-string) (subtypep* '(simple-array character (*)) 'simple-string)
t t) t t)
(deftest simple-string-is-simple-1d-array-of-character.3 (deftest simple-string-is-not-simple-1d-array-of-character.3
(subtypep* '(simple-string *) '(simple-array character (*))) (subtypep* '(simple-string *) '(simple-array character (*)))
t t) nil t)
(deftest simple-string-is-simple-1d-array-of-character.4 (deftest simple-string-is-simple-1d-array-of-character.4
(subtypep* '(simple-array character (*)) '(simple-string *)) (subtypep* '(simple-array character (*)) '(simple-string *))
t t) t t)
(deftest simple-string-is-simple-1d-array-of-character.5 (deftest simple-string-is-not-simple-1d-array-of-character.5
(subtypep* '(simple-string 17) '(simple-array character (17))) (subtypep* '(simple-string 17) '(simple-array character (17)))
nil t) nil t)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment