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
dca345fa
Commit
dca345fa
authored
Mar 08, 2003
by
pfdietz
Browse files
Added dotted list test for ADJOIN; fixed broken tests elsewhere.
parent
6142d3bd
Changes
3
Hide whitespace changes
Inline
Side-by-side
ansi-tests/cons-test-04.lsp
View file @
dca345fa
...
...
@@ -410,3 +410,8 @@
(deftest adjoin.error.9
(classify-error (adjoin 'a '(b c) :key #'cons))
program-error)
(deftest adjoin.error.10
(classify-error (adjoin 'a (list* 'b 'c 'd)))
type-error)
ansi-tests/cons-test-18.lsp
View file @
dca345fa
...
...
@@ -79,15 +79,15 @@
program-error)
(deftest get-properties.error.4
(classify-error (get-properties '(a 1 b 2 c 3) '(
a
.
b
)))
(classify-error (get-properties '(a 1 b 2 c 3) '(
x
.
y
)))
type-error)
(deftest get-properties.error.5
(classify-error (get-properties '(a 1 b 2 c 3 . d) '(
a z
)))
(classify-error (get-properties '(a 1 b 2 c 3 . d) '(
x y
)))
type-error)
(deftest get-properties.error.6
(classify-error (get-properties '(a 1 b 2 c . d) '(
a z
)))
(classify-error (get-properties '(a 1 b 2 c . d) '(
x y
)))
type-error)
...
...
ansi-tests/cons-test-24.lsp
View file @
dca345fa
...
...
@@ -254,5 +254,5 @@
type-error)
(deftest subsetp.error.12
(classify-error (subsetp (list* 1 2 3) (list 4 5 6)))
(classify-error (subsetp (list* 1 2 3) (list
1 2 3
4 5 6)))
type-error)
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