diff --git a/ansi-tests/string.lsp b/ansi-tests/string.lsp index 06f69f3589577d827e3c83bf66ca8133d72f64ee..4e88671bacbd294682957f12f46e60111b8fd24d 100644 --- a/ansi-tests/string.lsp +++ b/ansi-tests/string.lsp @@ -89,6 +89,7 @@ nil t) (deftest base-string.6 + :notes (:nil-vectors-are-strings) (subtypep* 'string 'base-string) nil t) @@ -123,14 +124,17 @@ t t) (deftest simple-string.8 + :notes (:nil-vectors-are-strings) (subtypep* 'simple-string '(simple-array character (*))) nil t) (deftest simple-string.9 + :notes (:nil-vectors-are-strings) (subtypep* 'simple-string '(simple-array base-char (*))) nil t) (deftest simple-string.10 + :notes (:nil-vectors-are-strings) (subtypep* 'simple-string 'simple-base-string) nil t)