Bad random-state seed on Windows

[il71]

version: sbcl 1.1.3 x86-64

make-random-state does not work as expected when run from saved executable on windows.

The test:

(defun main ()
  (let ((*random-state* (make-random-state t)))
    (print (random 100))))

is fine when being run in REPL (linux,windows) or from saved executable (linux).

However, when Windows executable is build by

(sb-ext:save-lisp-and-die "test-random.exe" :executable t :toplevel #'main)

it produces several repeated numbers.

[Stas Boukarev (stassats)]

random-state is seeded with (get-internal-real-time) on windows, which will tend to be zero right at the start-up.

[Stas Boukarev (stassats)]

I committed a quick work around, now it also uses pid in conjunction with get-internal-real-time. The proper fix would come after SBCL is out of freeze.

[Stas Boukarev (stassats)]

commit 5f0bd05a15aaf93f46baf9b8aa3e9b0bfbca26ab
Author: Stas Boukarev <email address hidden>
Date: Fri Feb 1 19:57:41 2013 +0800

    Use CryptGenRandom as a random seed on Windows.

    Patch by Anton Kovalenko.