[cmucl-commit] [git] CMU Common Lisp branch master updated. snapshot-2014-08-30-g0abe788

Raymond Toy rtoy at common-lisp.net
Sat Aug 23 19:45:07 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  0abe7883718b87b3dee2d8e3fb698183cbbca932 (commit)
      from  3bc0f535ff91082cbb7a207a5d50b1c5045ffaa0 (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 0abe7883718b87b3dee2d8e3fb698183cbbca932
Author: Raymond Toy <toy.raymond at gmail.com>
Date:   Sat Aug 23 12:44:26 2014 -0700

    Rename fdlibm tests to include a % prefix to distinguish these from
    other tests.

diff --git a/tests/trig.lisp b/tests/trig.lisp
index 62f6f91..724fabe 100644
--- a/tests/trig.lisp
+++ b/tests/trig.lisp
@@ -803,7 +803,7 @@
   (kernel:make-double-float #x7ff00000 1)
   "A randon signaling MaN value")
 
-(define-test cosh.exceptions
+(define-test %cosh.exceptions
   (:tag :fdlibm)
   (assert-error 'floating-point-overflow
 		(kernel:%cosh 1000d0))
@@ -827,7 +827,7 @@
   (kernel::with-float-traps-masked (:invalid)
     (assert-true (ext:float-nan-p (kernel:%cosh *snan*)))))
 
-(define-test sinh.exceptions
+(define-test %sinh.exceptions
   (:tag :fdlibm)
   (assert-error 'floating-point-overflow
 		(kernel:%sinh 1000d0))
@@ -851,7 +851,7 @@
     (assert-true (ext:float-nan-p (kernel:%sinh *qnan*)))))
 
 
-(define-test tanh.exceptions
+(define-test %tanh.exceptions
   (:tag :fdlibm)
   (assert-true (ext:float-nan-p (kernel:%tanh *qnan*)))
   (assert-error 'floating-point-invalid-operation
@@ -859,7 +859,7 @@
   (kernel::with-float-traps-masked (:invalid)
     (assert-true (ext:float-nan-p (kernel:%tanh *snan*)))))
 
-(define-test acosh.exceptions
+(define-test %acosh.exceptions
   (:tag :fdlibm)
   (assert-error 'floating-point-overflow
 		(kernel:%acosh ext:double-float-positive-infinity))
@@ -871,7 +871,7 @@
   (kernel::with-float-traps-masked (:invalid)
     (assert-true (ext:float-nan-p (kernel:%acosh 0d0)))))
 
-(define-test asinh.exceptions
+(define-test %asinh.exceptions
   (:tag :fdlibm)
   (assert-error 'floating-point-invalid-operation
 		(kernel:%asinh *snan*))
@@ -888,7 +888,7 @@
   (kernel::with-float-traps-masked (:invalid)
     (assert-true (ext:float-nan-p (kernel:%asinh *snan*)))))
 
-(define-test atanh.exceptions
+(define-test %atanh.exceptions
   (:tag :fdlibm)
   (assert-error 'floating-point-invalid-operation
 		(kernel:%atanh 2d0))
@@ -907,7 +907,7 @@
     (assert-equal ext:double-float-negative-infinity
 		  (kernel:%atanh -1d0))))
 
-(define-test expm1.exceptions
+(define-test %expm1.exceptions
   (:tag :fdlibm)
   (assert-error 'floating-point-overflow
 		(kernel:%expm1 709.8d0))
@@ -923,7 +923,7 @@
   (kernel::with-float-traps-masked (:invalid)
     (assert-true (ext::float-nan-p (kernel:%expm1 *snan*)))))
 
-(define-test log1p.exceptions
+(define-test %log1p.exceptions
   (:tag :fdlibm)
   (assert-error 'floating-point-invalid-operation
 		(kernel:%log1p -2d0))
@@ -936,7 +936,7 @@
   (kernel::with-float-traps-masked (:invalid)
     (assert-true (ext:float-nan-p (kernel:%log1p *snan*)))))
 
-(define-test exp.exceptions
+(define-test %exp.exceptions
   (:tag :fdlibm)
   (assert-error 'floating-point-overflow
 		(kernel:%exp 710d0))
@@ -949,7 +949,7 @@
     (assert-equal ext:double-float-positive-infinity
 		  (kernel:%exp 710d0))))
 
-(define-test log.exception
+(define-test %log.exception
   (:tag :fdlibm)
   (assert-error 'division-by-zero
 		(kernel:%log 0d0))
@@ -969,7 +969,7 @@
     (assert-true (ext:float-nan-p (kernel:%log -1d0)))
     (assert-true (ext:float-nan-p (kernel:%log *snan*)))))
 
-(define-test acos.exceptions
+(define-test %acos.exceptions
   (:tag :fdlibm)
   (assert-error 'floating-point-invalid-operation
 		(kernel:%acos 2d0))
@@ -979,7 +979,7 @@
     (assert-true (ext:float-nan-p (kernel:%acos 2d0)))
     (assert-true (ext:float-nan-p (kernel:%acos -2d0)))))
 
-(define-test asin.exceptions
+(define-test %asin.exceptions
   (:tag :fdlibm)
   (assert-error 'floating-point-invalid-operation
 		(kernel:%asin 2d0))
@@ -989,7 +989,7 @@
     (assert-true (ext:float-nan-p (kernel:%asin 2d0)))
     (assert-true (ext:float-nan-p (kernel:%asin -2d0)))))
 
-(define-test atan.exceptions
+(define-test %atan.exceptions
   (:tag :fdlibm)
   (assert-error 'floating-point-invalid-operation
 		(kernel:%atan *snan*))

-----------------------------------------------------------------------

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


hooks/post-receive
-- 
CMU Common Lisp


More information about the cmucl-commit mailing list