Raymond Toy pushed to branch rtoy-xoro-default at cmucl / cmucl

Commits:

• ab6d2c6a
  by Raymond Toy at 2017-12-27T10:29:26-08:00

  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.
  

1 changed file:

• src/code/rand-xoroshiro.lisp

Changes:

 		 (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)