;; The x86 port used not to reduce the arguments of transcendentals
;; correctly. On other platforms, we trust libm to DTRT.
;; but it doesn't cost any real amount to just test them all
-(with-test (:name :range-reduction)
+(with-test (:name :range-reduction
+ :fails-on ':x86-64)
(flet ((almost= (x y)
(< (abs (- x y)) 1d-5)))
(macrolet ((foo (op value)