282 |
(equalpt x y))) |
(equalpt x y))) |
283 |
t) |
t) |
284 |
|
|
285 |
|
(deftest remove-list.29 |
286 |
|
(let* ((orig '(1 2 3 2 6 1 2 4 1 3 2 7)) |
287 |
|
(x (copy-seq orig)) |
288 |
|
(y (remove 3 x :count 1000000000000))) |
289 |
|
(and (equalp orig x) |
290 |
|
y)) |
291 |
|
(1 2 2 6 1 2 4 1 2 7)) |
292 |
|
|
293 |
|
;;; Assorted tests of remove and delete on vectors, strings, |
294 |
|
;;; and bit vectors. These are mostly to exercise bugs previously |
295 |
|
;;; detected by the randomized tests |
296 |
|
|
297 |
(deftest remove-vector.1 |
(deftest remove-vector.1 |
298 |
(remove 'a (vector 'b 'c 'd)) |
(remove 'a (vector 'b 'c 'd)) |
299 |
#(b c d)) |
#(b c d)) |