;; 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
- :fails-on '(and :x86-64 (or :linux :darwin :sunos)))
+ :fails-on ':x86-64)
(flet ((almost= (x y)
(< (abs (- x y)) 1d-5)))
(macrolet ((foo (op value)