From: Stas Boukarev <stassats@gmail.com>
Date: Wed, 23 Jan 2013 10:33:08 +0000 (+0400)
Subject: Slightly improve random seed on Windows.
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=5405406220ca4e06af7f3257090b57d21c9bc1db;p=sbcl.git

Slightly improve random seed on Windows.

Use unix-getpid on Windows too.
---

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.