X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fruntime%2Fsafepoint.c;h=d94a61e97ffb840cd30fb42347a18eb301828155;hb=eac461c1f1ca91cfe282c779291d582ed6b336cb;hp=224643d219693a327a98bde5369ea7d74b43d26c;hpb=7aef55b130d95c384b63422807f1848faa9aba5a;p=sbcl.git

diff --git a/src/runtime/safepoint.c b/src/runtime/safepoint.c
index 224643d..d94a61e 100644
--- a/src/runtime/safepoint.c
+++ b/src/runtime/safepoint.c
@@ -831,6 +831,7 @@ void
 wake_thread_io(struct thread * thread)
 {
     SetEvent(thread->private_events.events[1]);
+    win32_maybe_interrupt_io(thread);
 }
 
 void
@@ -847,6 +848,7 @@ wake_thread_win32(struct thread *thread)
         (SymbolTlValue(STOP_FOR_GC_PENDING,thread)==T))
         return;
 
+    wake_thread_io(thread);
     pthread_mutex_unlock(&all_threads_lock);
 
     if (maybe_become_stw_initiator(1) && !in_race_p()) {