@@ -217,9 +217,9 @@ (let ((i 0) (j 0) (sign 0) (x 0d0) (y 0d0)) (declare (double-float mean sigma)) (declare (double-float x y)) - (declare ((SIMPLE-ARRAY SINGLE-FLOAT (128)) *ytab*)) - (declare ((SIMPLE-ARRAY SINGLE-FLOAT (128)) *wtab*)) - (declare ((SIMPLE-ARRAY fixnum (128)) *ktab*)) + (declare ((simple-array double-float (128)) *ytab*)) + (declare ((simple-array double-float (128)) *wtab*)) + (declare ((simple-array fixnum (128)) *ktab*)) ;;(declare ((integer 32) i j sign)) (tagbody normal.lisp bb6a02cec6ce987ce76f491cdc300e7bd5c10d4b AJ Rossini blindglobe@gmail.com http://github.com/lvaruzza/cl-randist/commit/0e2eddf4e30238b705f7a989eeee6ca956b9f519 0e2eddf4e30238b705f7a989eeee6ca956b9f519 2009-05-11T04:50:42-07:00 2009-05-10T13:54:33-07:00 use double floats for random-normal code at least for now. Signed-off-by: AJ Rossini <blindglobe@gmail.com> 6ec33a53b2dd3aaea5535f83433e81e33eccda63 AJ Rossini blindglobe@gmail.com