This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "CMU Common Lisp". The branch, master has been updated via 24c656a5824bfd4fb9d45dfd88a25f6015e56db4 (commit) from 106bf4fc7687741b27523b23db3c9b2443237b2d (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- commit 24c656a5824bfd4fb9d45dfd88a25f6015e56db4 Author: Raymond Toy <toy.raymond@gmail.com> Date: Wed Sep 24 19:57:01 2014 -0700 Add tests for compiled log2 and log10. diff --git a/tests/float.lisp b/tests/float.lisp index eeb221b..55b9013 100644 --- a/tests/float.lisp +++ b/tests/float.lisp @@ -21,3 +21,25 @@ (let ((x (float (expt 10 k) 1d0))) (assert-equalp k (log x 10))))) +(compile 'clog2 + #'(lambda (x) + (declare (type (double-float (0d0)) x)) + (log x 2))) + +(compile 'clog10 + #'(lambda (x) + (declare (type (double-float (0d0)) x)) + (log x 10))) + +(define-test log2.compiled + (loop for k from -1074 to 1023 do + (let ((x (scale-float 1d0 k))) + (assert-equalp k (clog2 x))))) + +(define-test log10.compiled + (loop for k from 0 to 22 do + (let ((x (float (expt 10 k) 1d0))) + (assert-equalp k (clog10 x))))) + + + ----------------------------------------------------------------------- Summary of changes: tests/float.lisp | 22 ++++++++++++++++++++++ 1 file changed, 22 insertions(+) hooks/post-receive -- CMU Common Lisp