Loading src/code/rand-xoroshiro.lisp +2 −2 Original line number Original line Diff line number Diff line Loading @@ -235,11 +235,11 @@ (optimize (speed 3) (safety 0))) (optimize (speed 3) (safety 0))) (vm::xoroshiro-next state)) (vm::xoroshiro-next state)) #+(or x86 sparc) #-(or x86 sparc) (defun xoroshiro-gen (state) (defun xoroshiro-gen (state) (declare (type (simple-array double-float (2)) state) (declare (type (simple-array double-float (2)) state) (optimize (speed 3) (safety 0))) (optimize (speed 3) (safety 0))) ;; Portable implemenation of the xoroshiro128+ generator. See ;; Portable implementation of the xoroshiro128+ generator. See ;; http://xoroshiro.di.unimi.it/xoroshiro128plus.c for the ;; http://xoroshiro.di.unimi.it/xoroshiro128plus.c for the ;; definitive definition. ;; definitive definition. ;; ;; Loading Loading
src/code/rand-xoroshiro.lisp +2 −2 Original line number Original line Diff line number Diff line Loading @@ -235,11 +235,11 @@ (optimize (speed 3) (safety 0))) (optimize (speed 3) (safety 0))) (vm::xoroshiro-next state)) (vm::xoroshiro-next state)) #+(or x86 sparc) #-(or x86 sparc) (defun xoroshiro-gen (state) (defun xoroshiro-gen (state) (declare (type (simple-array double-float (2)) state) (declare (type (simple-array double-float (2)) state) (optimize (speed 3) (safety 0))) (optimize (speed 3) (safety 0))) ;; Portable implemenation of the xoroshiro128+ generator. See ;; Portable implementation of the xoroshiro128+ generator. See ;; http://xoroshiro.di.unimi.it/xoroshiro128plus.c for the ;; http://xoroshiro.di.unimi.it/xoroshiro128plus.c for the ;; definitive definition. ;; definitive definition. ;; ;; Loading