From 0104134183d05c941d59f3de8756474cab081437 Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Sat, 5 Mar 2005 17:19:05 +0000
Subject: [PATCH] Add generators for random elements of cons, sequence, and
 list

---
 ansi-tests/random-int-form.lsp | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/ansi-tests/random-int-form.lsp b/ansi-tests/random-int-form.lsp
index 40f213b2..f07d1bde 100644
--- a/ansi-tests/random-int-form.lsp
+++ b/ansi-tests/random-int-form.lsp
@@ -1303,6 +1303,13 @@
        (random-from-interval (1+ most-positive-fixnum) most-negative-fixnum))
       ((complex)
        (make-random-element-of-type '(complex real)))
+      ((cons)
+       (make-random-element-of-type '(cons t t)))
+      ((list)
+       (let ((len (min (random 10) (random 10))))
+	 (loop repeat len collect (make-random-element-of-type t))))
+      ((sequence)
+       (make-random-element-of-type '(or list vector)))
       ))))
 
 (defun make-random-character ()
-- 
GitLab