From 75b62cfd2eef1d962b0b99f79d80192aca2169fb Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Thu, 19 Jun 2003 02:25:54 +0000 Subject: [PATCH] More test fixups due to (array nil)s are strings. --- ansi-tests/ansi-aux.lsp | 7 +++---- ansi-tests/subtypep-array.lsp | 18 +++++++++--------- 2 files changed, 12 insertions(+), 13 deletions(-) diff --git a/ansi-tests/ansi-aux.lsp b/ansi-tests/ansi-aux.lsp index ffe00ba0..c1570d32 100644 --- a/ansi-tests/ansi-aux.lsp +++ b/ansi-tests/ansi-aux.lsp @@ -620,15 +620,14 @@ the condition to go uncaught if it cannot be classified." (reader-error parse-error) (reader-error stream-error) ))) - #| (when (subtypep* 'character 'base-char) (setq table (append '((character base-char) - (string base-string) - (simple-string simple-base-string)) + ;; (string base-string) + ;; (simple-string simple-base-string) + ) table))) - |# table)) diff --git a/ansi-tests/subtypep-array.lsp b/ansi-tests/subtypep-array.lsp index 41e528db..49d0d018 100644 --- a/ansi-tests/subtypep-array.lsp +++ b/ansi-tests/subtypep-array.lsp @@ -106,17 +106,17 @@ (subtypep* '(vector character) 'string) t t) -(deftest string-is-vector-of-character.3 +(deftest string-is-not-vector-of-character.3 (subtypep* '(string *) '(vector character)) - t t) + nil t) (deftest string-is-vector-of-character.4 (subtypep* '(vector character) '(string *)) t t) -(deftest string-is-vector-of-character.5 +(deftest string-is-not-vector-of-character.5 (subtypep* '(string 17) '(vector character 17)) - t t) + nil t) (deftest string-is-vector-of-character.6 (subtypep* '(vector character 17) '(string 17)) @@ -170,23 +170,23 @@ (subtypep* '(simple-array base-char (17)) '(simple-base-string 17)) 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 (*))) - t t) + nil t) (deftest simple-string-is-simple-1d-array-of-character.2 (subtypep* '(simple-array character (*)) 'simple-string) 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 (*))) - t t) + nil t) (deftest simple-string-is-simple-1d-array-of-character.4 (subtypep* '(simple-array character (*)) '(simple-string *)) 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))) nil t) -- GitLab