Commit 23cea748 authored by pfdietz's avatar pfdietz

Add rule for NOT types to make-random-element-of-type

parent 50dbcc4b
......@@ -1134,6 +1134,10 @@
when (typep x (cons 'and (cddr type)))
return x
finally (error "Cannot generate random element of ~A" type)))
(not
(assert (cdr type))
(assert (not (cddr type)))
(make-random-element-of-type `(and t ,type)))
(integer
(let ((lo (let ((lo (cadr type)))
(cond
......
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