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