+
+#ifdef LISP_FEATURE_SB_THREAD
+ undoably_install_low_level_interrupt_handler(SIG_INTERRUPT_THREAD,
+ interrupt_thread_handler);
+ undoably_install_low_level_interrupt_handler(SIG_STOP_FOR_GC,
+ sig_stop_for_gc_handler);
+#endif
+}
+
+char *
+os_get_runtime_executable_path()
+{
+ int ret;
+ char path[] = "/proc/self/object/a.out";
+
+ ret = access(path, R_OK);
+ if (ret == -1)
+ return NULL;
+
+ return copied_string(path);