[Ecls-list] Still seeing (random <larger integer>) ==> 0

[Julian Stecklina]

On Sat, 26 Feb 2005 21:15:13 -0600
"Paul F. Dietz" <dietz at dls.net> wrote:

> bash-2.05b$ ls -l /usr/local/bin/ecl
> -rwxr-xr-x    1 root     root         3700 Feb 26 21:10
> /usr/local/bin/ecl bash-2.05b$ /usr/local/bin/ecl
> ECL (Embeddable Common-Lisp) 0.9e
> Copyright (C) 1984 Taiichi Yuasa and Masami Hagiya
> Copyright (C) 1993 Giuseppe Attardi
> Copyright (C) 2000 Juan J. Garcia-Ripoll
>          ECL is free software, and you are welcome to redistribute it
> under certain conditions; see file 'Copyright' for details.
> Type :h for Help.  Top level.
>  > (random 100000000000000)
> 0
>  > (random (1+ most-positive-fixnum))
> 0
>  > (random (1+ most-positive-fixnum))
> 0
>  >

I cannot reproduce this with a current ECL from CVS on FreeBSD 5.3.

> (random (1+ most-positive-fixnum))
465005744
> (random (1+ most-positive-fixnum))
183951220
> (random 100000000000000000000000000000000000000000000000)
77284110663458708443194009343610478196464549888

Regards,
-- 
Julian Stecklina

-- Common Lisp can do what C, C++, Java, PASCAL, PHP, Perl, (you --
-- name it) can do. Here's how:                                  --
--                                                               --
-- http://www.amazon.com/exec/obidos/ASIN/1590592395             --