X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fclos-add-remove-method.impure.lisp;h=b4ac601ef7e0434919ddf1ab4cfb093a35c30c8e;hb=cf49f2d086069a9c1b57f501df9a6a0bd3a34c3c;hp=6d0934086e3b807262d1fca8ce10431a3b9d5427;hpb=64022c4fef428e19a9c0d59ccddd281d47a84132;p=sbcl.git

diff --git a/tests/clos-add-remove-method.impure.lisp b/tests/clos-add-remove-method.impure.lisp
index 6d09340..b4ac601 100644
--- 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)))