Update tests for threaded windows builds

[sbcl.git] / tests / run-tests.lisp

diff --git a/tests/run-tests.lisp b/tests/run-tests.lisp
index 2cdd163..5b27987 100644 (file)
--- a/tests/run-tests.lisp
+++ b/tests/run-tests.lisp
@@ -4,7 +4,8 @@
 #+#.(cl:if (cl:find-package "SB-POSIX") '(or) '(and))
 (let ((asdf:*central-registry*
        (cons "../contrib/systems/" asdf:*central-registry*)))
-  (asdf:oos 'asdf:load-op 'sb-posix))
+  (handler-bind (#+win32 (warning #'muffle-warning))
+    (asdf:oos 'asdf:load-op 'sb-posix)))
 
 (load "test-util.lisp")