From b74f61aeded63c1d39d539ce5719120f8af8bd1e Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Wed, 9 Jun 2004 11:49:23 +0000 Subject: [PATCH] Fixed breakage in make-random-vector caused by change in random-partition --- ansi-tests/printer-aux.lsp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/ansi-tests/printer-aux.lsp b/ansi-tests/printer-aux.lsp index 8b7cc374..90c5440e 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))) -- GitLab