diff --git a/src/tests/trig.lisp b/src/tests/trig.lisp index a0c8c1501a30ba72b4c5682d2b8fa2e13f9f6926..9555b11f343aef0d78d71a6dec32a1bbe0dda789 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)