X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fstream.pure.lisp;h=526f76bec3cdfdd6574a92c13bf259e9a841c580;hb=b8846766dd1ecb2b6c3dce848f2aae0b3b11a6ea;hp=f0f9a2437f9707be957872e47d5a50f5014be592;hpb=76f3e23c8ad6f98d60ff97233e11082a41faf894;p=sbcl.git

diff --git a/tests/stream.pure.lisp b/tests/stream.pure.lisp
index f0f9a24..526f76b 100644
--- a/tests/stream.pure.lisp
+++ b/tests/stream.pure.lisp
@@ -324,7 +324,7 @@
 ;;; immediately be completely filled for normal files, and that the
 ;;; buffer-fill routine is responsible for figuring out when we've
 ;;; reached EOF.
-(with-test (:name (stream listen-vs-select))
+(with-test (:name (stream listen-vs-select) :fails-on :win32)
   (let ((listen-testfile-name "stream.impure.lisp.testqfile")
         ;; If non-NIL, size (in bytes) of the file that will exercise
         ;; the LISTEN problem.