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