Skip to content
Snippets Groups Projects
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
No related branches found
No related tags found
No related merge requests found
......@@ -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)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment