X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Ffloat.impure.lisp;h=29ca23b5c0e766ef680100ab86b3da21d94c27c9;hb=91ceb4051caf4ee96a72009a49c04225ecd37337;hp=daef1f2c92d6e017faee4bf132099427e8ce63b5;hpb=a4a5e7a1bb713c5ae0390cde10e4c917a567e1a7;p=sbcl.git

diff --git a/tests/float.impure.lisp b/tests/float.impure.lisp
index daef1f2..29ca23b 100644
--- a/tests/float.impure.lisp
+++ b/tests/float.impure.lisp
@@ -248,8 +248,11 @@
   (flet ((almost= (x y)
            (< (abs (- x y)) 1d-5)))
     (macrolet ((foo (op value)
-                 `(assert (almost= (,op (mod ,value (* 2 pi)))
-                                   (,op ,value)))))
+                 `(let ((actual (,op ,value))
+                        (expected (,op (mod ,value (* 2 pi)))))
+                    (unless (almost= actual expected)
+                      (error "Inaccurate result for ~a: expected ~a, got ~a"
+                             (list ',op ,value) expected actual)))))
       (let ((big (* pi (expt 2d0 70)))
             (mid (coerce most-positive-fixnum 'double-float))
             (odd (* pi most-positive-fixnum)))