/* this is called from any other thread to create the new one, and
* initialize all parts of it that can be initialized from another
/* this is called from any other thread to create the new one, and
* initialize all parts of it that can be initialized from another
pid_t create_thread(lispobj initial_function) {
struct thread *th=create_thread_struct(initial_function);
pid_t kid_pid=clone(new_thread_trampoline,
pid_t create_thread(lispobj initial_function) {
struct thread *th=create_thread_struct(initial_function);
pid_t kid_pid=clone(new_thread_trampoline,