projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fix (documentation #'function t)
[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)
(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)
(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)))
(dolist (method list)
(add-method #'foo method)))