X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=tests%2Ffloat.pure.lisp;h=c797f53e56f500f0e2e72955d22a61c25781f4c7;hb=eaa8a506790bb6ed627da617247bfd13802eb365;hp=a7813e374ac624c633c958dba4e132dfc07dd381;hpb=3dfb34c5c4c8a909530a617162c18d929ffd24a1;p=sbcl.git diff --git a/tests/float.pure.lisp b/tests/float.pure.lisp index a7813e3..c797f53 100644 --- a/tests/float.pure.lisp +++ b/tests/float.pure.lisp @@ -91,7 +91,7 @@ least-positive-double-float)) (assert (= 0.0 (scale-float 1.0 most-negative-fixnum))) (assert (= 0.0d0 (scale-float 1.0d0 (1- most-negative-fixnum)))) -#-darwin ;; bug 372 +#-(or darwin) ;; bug 372 (progn (assert (raises-error? (scale-float 1.0 most-positive-fixnum) floating-point-overflow))