Commit 01041341 authored by pfdietz's avatar pfdietz

Add generators for random elements of cons, sequence, and list

parent cef7af3b
......@@ -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 ()
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment