Commit ab6d2c6a authored by Raymond Toy's avatar Raymond Toy
Browse files

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.
parent 96c58393

src/code/rand-xoroshiro.lisp

+1 −1
Original line number Diff line number Diff line
@@ -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)