Fix SLEEP on 32-bit platforms.

[sbcl.git] / tests / interface.pure.lisp

diff --git a/tests/interface.pure.lisp b/tests/interface.pure.lisp
index 90d58f9..8f5d806 100644 (file)
--- a/tests/interface.pure.lisp
+++ b/tests/interface.pure.lisp
@@ -67,7 +67,8 @@
       (sleep 2)
       (sleep 2))))
 
-;;; SLEEP should not cons
+;;; SLEEP should not cons except on 32-bit platforms when
+;;; (> (mod seconds 1) (* most-positive-fixnum 1e-9))
 (with-test (:name (sleep :non-consing) :fails-on :win32)
   (ctu:assert-no-consing (sleep 0.00001s0))
   (locally (declare (notinline sleep))