diff --git a/ansi-tests/printer-aux.lsp b/ansi-tests/printer-aux.lsp index 8b7cc3742b9764ee860996bfa56372d44a033bdd..90c5440e8db4b2548fb24e991b2d1d754e686470 100644 --- a/ansi-tests/printer-aux.lsp +++ b/ansi-tests/printer-aux.lsp @@ -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)))