diff --git a/code/rand-mt19937.lisp b/code/rand-mt19937.lisp index bb1569b15d51eec0292fc61c986570f27d0f6ece..e3647b565bb93262f447b09d0048f6a60b1f8d5c 100644 --- a/code/rand-mt19937.lisp +++ b/code/rand-mt19937.lisp @@ -6,7 +6,7 @@ ;;; placed in the Public domain, and is provided 'as is'. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/rand-mt19937.lisp,v 1.18 2008/08/31 13:07:06 rtoy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/rand-mt19937.lisp,v 1.19 2008/09/02 13:38:03 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -66,7 +66,7 @@ (logand (get-universal-time) #xffffffff))) ;; New initializer proposed by Takuji Nishimura and Makota Matsumoto. -;; (See http://www.math.keio.ac.jp/~matumoto/MT2002/emt19937ar.html) +;; (See http://www.math.sci.hiroshima-u.ac.jp/~m-mat/MT/MT2002/emt19937ar.html) ;; ;; This corrects a deficiency in the original initializer wherein the ;; MSB of the seed was not well represented in the state. @@ -85,7 +85,7 @@ ;; (defun int-init-random-state (&optional (seed 5489) state) - (declare (type (integer 1 #xffffffff) seed)) + (declare (type (integer 0 #xffffffff) seed)) (let ((state (or state (make-array 627 :element-type '(unsigned-byte 32))))) (declare (type (simple-array (unsigned-byte 32) (627)) state)) (setf (aref state 0) 0)