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