Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Karsten Poeck
ansi-test
Commits
6ee594dc
Commit
6ee594dc
authored
Oct 24, 2005
by
pfdietz
Browse files
Fixes for ECL
parent
6c6786ee
Changes
4
Hide whitespace changes
Inline
Side-by-side
ansi-tests/base-string.lsp
View file @
6ee594dc
...
...
@@ -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)
ansi-tests/notes.lsp
View file @
6ee594dc
...
...
@@ -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)
ansi-tests/proclaim.lsp
View file @
6ee594dc
...
...
@@ -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)
ansi-tests/simple-base-string.lsp
View file @
6ee594dc
...
...
@@ -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)
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment