@@ -1,4 +1,4 @@ -version=0.4.1 +version=0.4.2 if [ -d cl-randist-$version ]; then rm -Rf cl-randist-$version fi make-dist.sh @@ -1,7 +1,7 @@ (in-package :randist) ;; On CMUCL or SBCL the random already uses mersene twister -#+sbcl +#+(or sbcl cmucl) (progn (declaim (inline random-mt)) (defun random-mt (x &optional (state *random-state*)) randist.lisp @@ -23,7 +23,7 @@ (values (float (mean lst)) (float (var lst))))) -(defvar *n* (* 1000 1000)) +(defvar *n* (* 100 1000 1000)) (defun test-gamma-speed (&optional (n *n*)) (time (dotimes (i n) (random-gamma1 2.4d0 0.5d0)))) tests.lisp 24ec7612a4036fe7cae294be4fec13b5cfbef8ad Leonardo Varuzza varuzza@gmail.com http://github.com/lvaruzza/cl-randist/commit/7100372c2c0d723f4d86a6baea103d37a624fab1 7100372c2c0d723f4d86a6baea103d37a624fab1 2009-05-03T18:39:57-07:00 2009-05-03T18:39:57-07:00 Fix bug in CMUCL. The declaration of random-mt in randist.lisp must be contitional to SBCL and CMUCL. 7c03673915ea40efc69ccf491ec202f2d6175ae9 Leonardo Varuzza varuzza@gmail.com