Commit b74f61ae authored by pfdietz's avatar pfdietz

Fixed breakage in make-random-vector caused by change in random-partition

parent 459b225e
......@@ -175,7 +175,7 @@
(defun make-random-vector (size)
(if (> size 1)
(let* ((nelems (min (1- size) (1+ (random (max 2 (floor size 4))))))
(sizes (mapcar #'1+ (random-partition (- size nelems 1) nelems))))
(sizes (mapcar #'1+ (random-partition* (- size nelems 1) nelems))))
(make-array nelems :initial-contents (mapcar #'make-random-vector sizes)))
(rcase
(1 (random-from-seq #(a b c d e f g)))
......
Markdown is supported
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