282 |
(equalpt x y))) |
(equalpt x y))) |
283 |
t) |
t) |
284 |
|
|
285 |
|
(deftest remove-vector.1 |
286 |
|
(remove 'a (vector 'b 'c 'd)) |
287 |
|
#(b c d)) |
288 |
|
|
289 |
|
(deftest remove-vector.2 |
290 |
|
(remove 'a (vector 'b 'c 'd) :count -1) |
291 |
|
#(b c d)) |
292 |
|
|
293 |
|
(deftest remove-vector.3 |
294 |
|
(remove 'a (vector 'a 'b 'c 'd) :count -1) |
295 |
|
#(a b c d)) |
296 |
|
|
297 |
|
(deftest delete-vector.1 |
298 |
|
(delete 'a (vector 'b 'c 'd)) |
299 |
|
#(b c d)) |
300 |
|
|
301 |
|
(deftest delete-vector.2 |
302 |
|
(delete 'a (vector 'b 'c 'd) :count -1) |
303 |
|
#(b c d)) |
304 |
|
|
305 |
|
(deftest delete-vector.3 |
306 |
|
(delete 'a (vector 'a 'b 'c 'd) :count -1) |
307 |
|
#(a b c d)) |
308 |
|
|
309 |
|
|
310 |
;;; Randomized tests |
;;; Randomized tests |
311 |
|
|
312 |
(deftest remove-random |
(deftest remove-random |