/[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.55 by pfdietz, Sun Feb 27 23:06:53 2005 UTC revision 1.56 by pfdietz, Sat Mar 5 17:19:05 2005 UTC
# Line 1303  Line 1303 
1303         (random-from-interval (1+ most-positive-fixnum) most-negative-fixnum))         (random-from-interval (1+ most-positive-fixnum) most-negative-fixnum))
1304        ((complex)        ((complex)
1305         (make-random-element-of-type '(complex real)))         (make-random-element-of-type '(complex real)))
1306          ((cons)
1307           (make-random-element-of-type '(cons t t)))
1308          ((list)
1309           (let ((len (min (random 10) (random 10))))
1310             (loop repeat len collect (make-random-element-of-type t))))
1311          ((sequence)
1312           (make-random-element-of-type '(or list vector)))
1313        ))))        ))))
1314    
1315  (defun make-random-character ()  (defun make-random-character ()

Legend:
Removed from v.1.55  
changed lines
  Added in v.1.56

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