From 7190b61cf97c8320d6a218c430471c0fb0bf518e Mon Sep 17 00:00:00 2001
From: Raymond Toy <toy.raymond@gmail.com>
Date: Sat, 14 Dec 2013 21:21:50 -0800
Subject: [PATCH] Add test for sincos(-0d0).

---
 src/tests/trig.lisp | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/src/tests/trig.lisp b/src/tests/trig.lisp
index a0c8c1501..9555b11f3 100644
--- a/src/tests/trig.lisp
+++ b/src/tests/trig.lisp
@@ -142,6 +142,10 @@
   -4.08066388841804238545143494525595117765084022768d-1)
 
 
+(rt:deftest sincos.0
+    (multiple-value-list (kernel::%sincos -0d0))
+  (-0d0 1d0))
+
 (rt:deftest sincos.1
     (let (results)
       (dotimes (k 1000)
-- 
GitLab