@@ -143,10 +143,11 @@ (defconstant +e+ (exp 1d0)) - (declaim (ftype (function () double-float) random-pos)) (declaim (inline random-pos)) (defun random-pos () + "Create the sign, i.e. random positive or negative, similar to a +binary result." (let ((y 0d0)) (tagbody start gamma.lisp @@ -14,6 +14,8 @@ (declaim (ftype (function () double-float) random-pos)) (declaim (inline random-pos)) (defun random-pos () + "Create the sign, i.e. random positive or negative, similar to a +binary result." (let ((y 0d0)) (tagbody start randist.lisp 5181028b115681bba8bdfa2d0775423f79bfdb7f AJ Rossini blindglobe@gmail.com http://github.com/lvaruzza/cl-randist/commit/9494bf059fd8163103845490a62ca63a7897febc 9494bf059fd8163103845490a62ca63a7897febc 2009-05-11T04:50:41-07:00 2009-05-09T07:17:37-07:00 document random-pos. HOWEVER, need to merge both instances into a single place. Signed-off-by: AJ Rossini <blindglobe@gmail.com> 4a2004a2336508beeca948c6cfe5a1ea2660c3ad AJ Rossini blindglobe@gmail.com