[git] CMU Common Lisp branch master updated. snapshot-2014-08-20-gd2f946a

Raymond Toy rtoy at common-lisp.net
Fri Aug 22 04:46:53 UTC 2014

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  d2f946ac549cdc8da46c3bfbee61c52d8fd81f5e (commit)
      from  b9a6091a28a431b4f11300b350e77f57d8389b19 (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 d2f946ac549cdc8da46c3bfbee61c52d8fd81f5e
Author: Raymond Toy <toy.raymond at gmail.com>
Date:   Thu Aug 21 21:46:46 2014 -0700

    Fix some typos and remove redundant test for expm1.

diff --git a/tests/trig.lisp b/tests/trig.lisp
index 1452c4c..2f4a945 100644
--- a/tests/trig.lisp
+++ b/tests/trig.lisp
@@ -875,16 +875,15 @@
   (:tag :fdlibm)
   (assert-error 'floating-point-overflow
 		(kernel:%expm1 709.8d0))
-  (assert-equal 'ext:double-float-positive-infinity
+  (assert-equal ext:double-float-positive-infinity
 		(kernel:%expm1 ext:double-float-positive-infinity))
   (assert-error 'floating-point-invalid-operation
 		(kernel:%expm1 *snan*))
   (assert-true (ext:float-nan-p (kernel:%expm1 *qnan*)))
   (kernel::with-float-traps-masked (:overflow)
-    (assert-true ext:double-float-positive-infinity
+    (assert-equal ext:double-float-positive-infinity
 		 (kernel:%expm1 709.8d0))
-    (assert-true ext:double-float-positive-infinity
-		 (kernel:%expm1 ext:double-float-positive-infinity)))
+    )
   (kernel::with-float-traps-masked (:invalid)
     (assert-true (ext::float-nan-p (kernel:%expm1 *snan*)))))


Summary of changes:
 tests/trig.lisp |    7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

CMU Common Lisp

More information about the cmucl-cvs mailing list