3 import org.armedbear.lisp.*;
5 public final class Startup {
6 static final long stacksize = 4194304L;
7 public static final void main(final String[] args) {
8 Runnable r = new Runnable() {
9 public final void run() {
10 Interpreter.createInstance();
12 Symbol COMMAND_LINE_ARGS =
13 Lisp.PACKAGE_EXT.internAndExport("*COMMAND-LINE-ARGS*");
14 LispObject cmdargs = Lisp.NIL;
15 for (int i = 0; i < args.length; i++)
16 cmdargs = new Cons(args[i], cmdargs);
17 COMMAND_LINE_ARGS.setSymbolValue(cmdargs.nreverse());
18 Load.loadSystemFile("run.lisp");
19 } catch (Throwable t) {
25 new Thread(null, r, "lisp", stacksize).start();