From ab6d2c6a540ff87109a6bbcd7f61c3147bc2b234 Mon Sep 17 00:00:00 2001
From: Raymond Toy <toy.raymond@gmail.com>
Date: Wed, 27 Dec 2017 10:29:26 -0800
Subject: [PATCH] Fix compiler warning in VEC-INIT-XORO-STATE

Set default value for state in VEC-INIT-XORO-STATE.  If not given,
initialize it to the correct array.
---
 src/code/rand-xoroshiro.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/code/rand-xoroshiro.lisp b/src/code/rand-xoroshiro.lisp
index a7af285ea..68b567d94 100644
--- a/src/code/rand-xoroshiro.lisp
+++ b/src/code/rand-xoroshiro.lisp
@@ -85,7 +85,7 @@
 		 (aref state 1) (make-double s1))
 	   state))))
 
-(defun vec-init-xoro-state (key &optional state)
+(defun vec-init-xoro-state (key &optional (state (make-array 2 :element-type 'double-float)))
   (declare (type (array (unsigned-byte 64) (2)) key)
 	   (type (simple-array double-float (2)) state))
   (flet ((make-double (x)
-- 
GitLab