The branch "master" has been updated in SBCL:
via 5405406220ca4e06af7f3257090b57d21c9bc1db (commit)
from f10d937a07cb7198852694de95fd14858fccb5d3 (commit)
- Log -----------------------------------------------------------------
commit 5405406220ca4e06af7f3257090b57d21c9bc1db
Author: Stas Boukarev <stassats@...>
Date: Wed Jan 23 14:33:08 2013 +0400
Slightly improve random seed on Windows.
Use unix-getpid on Windows too.
---
src/code/target-random.lisp | 2 +-
1 files changed, 1 insertions(+), 1 deletions(-)
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.
-----------------------------------------------------------------------
hooks/post-receive
--
SBCL
|