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();