Fix contrib building on mingw.

[sbcl.git] / tests / clos-add-remove-method.impure.lisp

diff --git a/tests/clos-add-remove-method.impure.lisp b/tests/clos-add-remove-method.impure.lisp
index 6d09340..b4ac601 100644 (file)
--- a/tests/clos-add-remove-method.impure.lisp
+++ b/tests/clos-add-remove-method.impure.lisp
@@ -77,12 +77,12 @@
 (defvar *run* nil)
 
 (defun remove-methods (list)
-  (loop until *run*)
+  (loop until *run* do (sb-thread:thread-yield))
   (dolist (method list)
     (remove-method #'foo method)))
 
 (defun add-methods (list)
-  (loop until *run*)
+  (loop until *run* do (sb-thread:thread-yield))
   (dolist (method list)
     (add-method #'foo method)))