X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Ftimer.impure.lisp;h=a2028b8aaa55a2f0deccba799d7281a55f96634a;hb=cececc9ace31c1f0c624af1d3a8bafae9beb5348;hp=8531430bbee3b1a644907b990447046e85f69e0c;hpb=35bfc07cbd9aa8029e9cc42f1a3fab27f1a673f4;p=sbcl.git

diff --git a/tests/timer.impure.lisp b/tests/timer.impure.lisp
index 8531430..a2028b8 100644
--- a/tests/timer.impure.lisp
+++ b/tests/timer.impure.lisp
@@ -145,6 +145,9 @@
 (defun random-type (n)
   `(integer ,(random n) ,(+ n (random n))))
 
+;;; FIXME: Since timeouts do not work on Windows this would loop
+;;; forever.
+#-win32
 (with-test (:name '(:hash-cache :interrupt))
   (let* ((type1 (random-type 500))
          (type2 (random-type 500))