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
9d8f07d1
Commit
9d8f07d1
authored
Nov 11, 2002
by
pfdietz
Browse files
Added REMOVE-LIST.29, which exercises a bug in CMU CL.
parent
c5bb27d1
Changes
1
Hide whitespace changes
Inline
Side-by-side
ansi-tests/remove.lsp
View file @
9d8f07d1
...
...
@@ -282,6 +282,18 @@
(equalpt x y)))
t)
(deftest remove-list.29
(let* ((orig '(1 2 3 2 6 1 2 4 1 3 2 7))
(x (copy-seq orig))
(y (remove 3 x :count 1000000000000)))
(and (equalp orig x)
y))
(1 2 2 6 1 2 4 1 2 7))
;;; Assorted tests of remove and delete on vectors, strings,
;;; and bit vectors. These are mostly to exercise bugs previously
;;; detected by the randomized tests
(deftest remove-vector.1
(remove 'a (vector 'b 'c 'd))
#(b c d))
...
...
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