X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fthread.c;h=d38fd72183669741f8d2049d96e092e8ba36a904;hb=6a0601ab48635465ad3400c290e5cfbca28e5367;hp=9044dfd1f31f7dfd7836aadb646ab451601c7384;hpb=9ea3ca84ac0fb5dd834cd58c79dd47f255233b07;p=sbcl.git

diff --git a/src/runtime/thread.c b/src/runtime/thread.c
index 9044dfd..d38fd72 100644
--- a/src/runtime/thread.c
+++ b/src/runtime/thread.c
@@ -729,3 +729,13 @@ void gc_start_the_world()
     FSHOW_SIGNAL((stderr,"/gc_start_the_world:end\n"));
 }
 #endif
+
+int
+thread_yield()
+{
+#ifdef LISP_FEATURE_SB_THREAD
+    return sched_yield();
+#else
+    return 0;
+#endif
+}