From 5405406220ca4e06af7f3257090b57d21c9bc1db Mon Sep 17 00:00:00 2001 From: Stas Boukarev Date: Wed, 23 Jan 2013 14:33:08 +0400 Subject: [PATCH] Slightly improve random seed on Windows. Use unix-getpid on Windows too. --- src/code/target-random.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/code/target-random.lisp b/src/code/target-random.lisp index 4eb87a8..073ec4e 100644 --- a/src/code/target-random.lisp +++ b/src/code/target-random.lisp @@ -158,7 +158,7 @@ http://www.math.sci.hiroshima-u.ac.jp/~m-mat/MT/emt.html (progn (/show0 "No /dev/urandom, using randomness from time and pid") (+ (get-internal-real-time) - #!+unix (ash (sb!unix:unix-getpid) 32)))))) + (ash (sb!unix:unix-getpid) 32)))))) ;; For convenience to users, we accept (simple-array (unsigned-byte 8) (*)) ;; We just convert it to (simple-array (unsigned-byte 32) (*)) in a ;; completely straightforward way. -- 1.7.10.4