diff --git a/ansi-tests/base-string.lsp b/ansi-tests/base-string.lsp index e3c2a743a18cb8f4af5285f80eb2fda83783044f..22d30d195ea490d8f27af630b4982a5fad9a0795 100644 --- a/ansi-tests/base-string.lsp +++ b/ansi-tests/base-string.lsp @@ -22,7 +22,7 @@ t t) (deftest base-string.5 - :notes (:allow-nil-arrays) + :notes (:allow-nil-arrays :nil-vectors-are-strings) (subtypep* '(array nil (*)) 'base-string) nil t) @@ -30,4 +30,3 @@ :notes (:nil-vectors-are-strings) (subtypep* 'string 'base-string) nil t) - diff --git a/ansi-tests/notes.lsp b/ansi-tests/notes.lsp index 25c226d8d3204c4080c9e29e30873dd4eb8fe538..d5e457d6742bfada4c562750f997f207f30305b7 100644 --- a/ansi-tests/notes.lsp +++ b/ansi-tests/notes.lsp @@ -48,5 +48,5 @@ If negative zeros are distinct this is probably not good, since it makes (defcon ;;; Haible disagrees with :result-type-element-type-by-subtype #+clisp (rt::disable-note :result-type-element-type-by-subtype) -#+(or openmcl gcl) (rt::disable-note :nil-vectors-are-strings) +#+(or openmcl gcl ecl) (rt::disable-note :nil-vectors-are-strings) #+gcl (rt::disable-note :allow-nil-arrays) diff --git a/ansi-tests/proclaim.lsp b/ansi-tests/proclaim.lsp index 9b46d0e429ec0ac6416858d22ac0c87040bccd51..bcd372502df456abfa8129be1780766a3a9ad628 100644 --- a/ansi-tests/proclaim.lsp +++ b/ansi-tests/proclaim.lsp @@ -36,19 +36,19 @@ t) (deftest proclaim.error.3 - (signals-error (proclaim `(optimize . foo)) type-error) + (signals-error (proclaim `(optimize . foo)) error) t) (deftest proclaim.error.4 - (signals-error (proclaim `(inline . foo)) type-error) + (signals-error (proclaim `(inline . foo)) error) t) (deftest proclaim.error.5 - (signals-error (proclaim `(notinline . foo)) type-error) + (signals-error (proclaim `(notinline . foo)) error) t) (deftest proclaim.error.6 - (signals-error (proclaim `(type . foo)) type-error) + (signals-error (proclaim `(type . foo)) error) t) (deftest proclaim.error.7 @@ -56,22 +56,17 @@ t) (deftest proclaim.error.8 - (signals-error (proclaim '(type integer . foo)) type-error) + (signals-error (proclaim '(type integer . foo)) error) t) (deftest proclaim.error.9 - (signals-error (proclaim '(integer . foo)) type-error) + (signals-error (proclaim '(integer . foo)) error) t) (deftest proclaim.error.10 - (signals-error (proclaim '(declaration . foo)) type-error) + (signals-error (proclaim '(declaration . foo)) error) t) (deftest proclaim.error.11 - (signals-error (proclaim '(ftype (function (t) t) . foo)) type-error) + (signals-error (proclaim '(ftype (function (t) t) . foo)) error) t) - - - - - diff --git a/ansi-tests/simple-base-string.lsp b/ansi-tests/simple-base-string.lsp index 418317064a17c5f7879f0024af936ed4f711dc5f..4e57921506e800515277ed20b338fb216b81770d 100644 --- a/ansi-tests/simple-base-string.lsp +++ b/ansi-tests/simple-base-string.lsp @@ -38,16 +38,16 @@ nil t) (deftest simple-base-string.9 - :notes (:allow-nil-arrays) + :notes (:allow-nil-arrays :nil-vectors-are-strings) (subtypep* '(simple-array nil (*)) 'simple-base-string) nil t) (deftest simple-base-string.10 - :notes (:allow-nil-arrays) + :notes (:allow-nil-arrays :nil-vectors-are-strings) (typep* (make-array '(0) :element-type nil) 'simple-base-string) nil) (deftest simple-base-string.11 - :notes (:allow-nil-arrays) + :notes (:allow-nil-arrays :nil-vectors-are-strings) (typep* (make-array '(12) :element-type nil) 'simple-base-string) nil)