diff --git a/ansi-tests/random-int-form.lsp b/ansi-tests/random-int-form.lsp index 40f213b2be88d03b0ced83ef8f9d5de3c7c9db7c..f07d1bdee0d67915e68ecd8a80bddbb934e7df97 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 ()