Parent Directory | Revision Log | Patch
revision 1.57 by pfdietz, Sun Mar 6 20:32:35 2005 UTC | revision 1.58 by pfdietz, Mon Mar 14 03:46:46 2005 UTC | |
---|---|---|
# | Line 1134 | Line 1134 |
1134 | when (typep x (cons 'and (cddr type))) | when (typep x (cons 'and (cddr type))) |
1135 | return x | return x |
1136 | finally (error "Cannot generate random element of ~A" type))) | finally (error "Cannot generate random element of ~A" type))) |
1137 | (not | |
1138 | (assert (cdr type)) | |
1139 | (assert (not (cddr type))) | |
1140 | (make-random-element-of-type `(and t ,type))) | |
1141 | (integer | (integer |
1142 | (let ((lo (let ((lo (cadr type))) | (let ((lo (let ((lo (cadr type))) |
1143 | (cond | (cond |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |