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

diff --git a/tests/stream.pure.lisp b/tests/stream.pure.lisp
index f0f9a24..50b2126 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.