Commit c5bb27d1 authored by pfdietz's avatar pfdietz
Browse files

fixed problem in random input generator that was breaking the remove duplicates tests.

parent 4d31a550
......@@ -35,7 +35,7 @@
(let ((seq (if (and (subtypep type 'vector)
(coin 3))
(make-array
(list (+ len (random len)))
(list (+ len (random (1+ len))))
:initial-element (make-random-element element-type)
:fill-pointer len
:element-type element-type)
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment