0.8.9.9:

[sbcl.git] / src / runtime / thread.c

diff --git a/src/runtime/thread.c b/src/runtime/thread.c
index 3cfab33..83c9e72 100644 (file)
--- a/src/runtime/thread.c
+++ b/src/runtime/thread.c
@@ -204,7 +204,7 @@ void link_thread(struct thread *th,pid_t kid_pid)
     th->pid=kid_pid;           /* child will not start until this is set */
 }
 
-pid_t create_initial_thread(lispobj initial_function) {
+void create_initial_thread(lispobj initial_function) {
     struct thread *th=create_thread_struct(initial_function);
     pid_t kid_pid=getpid();
     if(th && kid_pid>0) {