From c3d967c1ed0b08f7e2f3e0f4f6a53efd4c68970a Mon Sep 17 00:00:00 2001
From: Raymond Toy <toy.raymond@gmail.com>
Date: Tue, 5 Sep 2017 20:40:19 -0700
Subject: [PATCH] Make test fail to see how pipeline works.

---
 tests/trig.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tests/trig.lisp b/tests/trig.lisp
index 84fc74c1a..a979ca813 100644
--- a/tests/trig.lisp
+++ b/tests/trig.lisp
@@ -16,7 +16,7 @@
 (define-test sin.very-small
   "Tests sin for the case of |x| < 2^-27, but not 0."
   (:tag :sin)
-  (assert-eql (scale-float 1d0 -28)
+  (assert-eql (scale-float 1d0 -27)
 	      (sin (scale-float 1d0 -28))))
 
 (define-test sin.no-reduction
-- 
GitLab