3 /* Snarfed from SBCL linux-so.c. You must free() this yourself. */
4 const char *vm_executable_path(void)
6 char *path = safe_malloc(PATH_MAX + 1);
8 int size = readlink("/proc/self/exe", path, PATH_MAX);
11 fatal_error("Cannot read /proc/self/exe",0);
17 return safe_strdup(path);