/[gcl]/gcl/ansi-tests/random-int-form.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/random-int-form.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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

Legend:
Removed from v.1.57  
changed lines
  Added in v.1.58

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26