[Sbcl-devel] problem seeding randomness

[Joshua P. <jpa...@gm...>]

Hi,  Sorry if this has come up before, but I am new to the list and  
couldn't find much that related to this in the documentation.

I seem to be having a problem seeding the state of *random-state* on  
sbcl 0.9.11 on an Intel Mac.  Here is an example:

This is SBCL 0.9.11, an implementation of ANSI Common Lisp.
More information about SBCL is available at <http://www.sbcl.org/>.

SBCL is free software, provided as is, with absolutely no warranty.
It is mostly in the public domain; some portions are provided under
BSD-style licenses.  See the CREDITS and COPYING files in the
distribution for more information.
* (defvar *seed* (make-random-state))

*SEED*
* (progn
   (setq *random-state* (make-random-state *seed*))
   (loop for i from 0 below 10 collect (random 1000))
)

(926 932 993 571 424 955 516 912 780 209)
* (progn
   (setq *random-state* (make-random-state *seed*))
   (loop for i from 0 below 10 collect (random 1000))
)

(253 517 383 109 50 637 2 987 911 143)
*

Am I doing something wrong? This seems to me like it should work.

Thanks for any help.

Josh


******************************************
Joshua Parmenter
joshp@u.washington.edu
Post-Doctoral Research Associate - Center for Digital Arts and  
Experimental Media
Raitt Hall - University of Washington
Seattle, Washington 98195

http://www.dxarts.washington.edu
http://www.realizedsound.net/josh/