14 int main(int argc
, char *argv
[])
16 char **args
= malloc((ARGS
+ argc
) * sizeof(*args
));
18 if ((lisp
= getenv("RUNLISP_LISP")) == 0) lisp
= LISP
;
19 if ((core
= getenv("RUNLISP_CORE")) == 0) core
= CORE
;
20 if (!args
) { perror("alloc"); exit(127); }
29 args
[4] = "(ext:quit (if (runlisp:run) 0 127))";
33 memcpy(args
+ ARGS
, argv
+ 1, argc
* sizeof(*args
));