From eea11e0772aee7480a290045684c02b827f8dd50 Mon Sep 17 00:00:00 2001
From: Raymond Toy <toy.raymond@gmail.com>
Date: Fri, 15 Dec 2017 15:41:13 -0800
Subject: [PATCH] Compile and load xoroshiro rng

Make xoroshiro rng available in the core.  Basic things work on x86
but not yet integrated in anyway.
---
 src/tools/worldbuild.lisp | 1 +
 src/tools/worldcom.lisp   | 1 +
 src/tools/worldload.lisp  | 1 +
 3 files changed, 3 insertions(+)

diff --git a/src/tools/worldbuild.lisp b/src/tools/worldbuild.lisp
index b08d4af4e..a654b449c 100644
--- a/src/tools/worldbuild.lisp
+++ b/src/tools/worldbuild.lisp
@@ -124,6 +124,7 @@
     ,@(if (c:backend-featurep :random-mt19937)
 	  '("target:code/rand-mt19937")
 	  '("target:code/rand"))
+    "target:code/rand-xoroshiro"
     "target:code/alieneval"
     "target:code/c-call"
     "target:code/sap"
diff --git a/src/tools/worldcom.lisp b/src/tools/worldcom.lisp
index 509784342..8c2c8a821 100644
--- a/src/tools/worldcom.lisp
+++ b/src/tools/worldcom.lisp
@@ -271,6 +271,7 @@
 (if (c:backend-featurep :random-mt19937)
     (comf "target:code/rand-mt19937")
     (comf "target:code/rand"))
+(comf "target:code/rand-xoroshiro")
 (comf "target:code/ntrace" :byte-compile *byte-compile*)
 (comf "target:code/profile")
 (comf "target:code/sort")
diff --git a/src/tools/worldload.lisp b/src/tools/worldload.lisp
index b16766287..b85332be3 100644
--- a/src/tools/worldload.lisp
+++ b/src/tools/worldload.lisp
@@ -98,6 +98,7 @@
 (maybe-byte-load "code:describe")
 #+random-mt19937 (maybe-byte-load "code:rand-mt19937")
 #-random-mt19937 (maybe-byte-load "code:rand")
+(maybe-byte-load "code:rand-xoroshiro")
 (maybe-byte-load "target:pcl/walk")
 (maybe-byte-load "code:fwrappers")
 (maybe-byte-load "code:ntrace")
-- 
GitLab