X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Finterface.pure.lisp;h=90d58f96e6ad0ceadd6979aa9b630af165661dd2;hb=f77e81ba7736fc7df9ca7d37b93f662f36dae39f;hp=2a5c3d6c882221b0afe102346bfb841f4108f476;hpb=d06e99b8e2f7901a6774b2d7da0f1ae1bc6dd8d5;p=sbcl.git

diff --git a/tests/interface.pure.lisp b/tests/interface.pure.lisp
index 2a5c3d6..90d58f9 100644
--- a/tests/interface.pure.lisp
+++ b/tests/interface.pure.lisp
@@ -73,7 +73,7 @@
   (locally (declare (notinline sleep))
     (ctu:assert-no-consing (sleep 0.00001s0))
     (ctu:assert-no-consing (sleep 0.00001d0))
-    (ctu:assert-no-consing (sleep 1/100000000000000))))
+    (ctu:assert-no-consing (sleep 1/100000003))))
 
 ;;; SLEEP should work with large integers as well
 (with-test (:name (sleep pretty-much-forever))