+int
+initial_thread_trampoline(struct thread *th)
+{
+ lispobj function;
+ lispobj *args = NULL;
+ function = th->unbound_marker;
+ th->unbound_marker = UNBOUND_MARKER_WIDETAG;
+ if(arch_os_thread_init(th)==0) return 1;
+
+ if(th->pid < 1) lose("th->pid not set up right");
+ th->state=STATE_RUNNING;
+#if defined(LISP_FEATURE_X86)
+ return call_into_lisp_first_time(function,args,0);
+#else
+ return funcall0(function);
+#endif
+}
+