[armedbear-cvs] r13142 - trunk/abcl/src/org/armedbear/lisp
Erik Huelsmann
ehuelsmann at common-lisp.net
Thu Jan 13 22:29:41 UTC 2011
Author: ehuelsmann
Date: Thu Jan 13 17:29:41 2011
New Revision: 13142
Log:
Mark exit() invocations as FIXME. I'll address later.
Modified:
trunk/abcl/src/org/armedbear/lisp/Interpreter.java
Modified: trunk/abcl/src/org/armedbear/lisp/Interpreter.java
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/Interpreter.java (original)
+++ trunk/abcl/src/org/armedbear/lisp/Interpreter.java Thu Jan 13 17:29:41 2011
@@ -89,7 +89,7 @@
Stream out = getStandardOutput();
out._writeString(help());
out._finishOutput();
- exit(0);
+ exit(0); // FIXME
}
if (noinform)
_NOINFORM_.setSymbolValue(T);
@@ -253,7 +253,7 @@
++i;
} else {
System.err.println("No argument supplied to --eval");
- exit(1);
+ exit(1); // FIXME
}
} else if (arg.equals("--load") ||
arg.equals("--load-system-file")) {
@@ -261,7 +261,7 @@
++i;
} else {
System.err.println("No argument supplied to --load");
- exit(1);
+ exit(1); // FIXME
}
} else {
arglist = new Cons(args[i], arglist);
@@ -301,13 +301,13 @@
sb.append(c.getCondition().writeToString());
sb.append(separator);
System.err.print(sb.toString());
- exit(2);
+ exit(2); // FIXME
}
++i;
} else {
// Shouldn't happen.
System.err.println("No argument supplied to --eval");
- exit(1);
+ exit(1); // FIXME
}
} else if (arg.equals("--load") ||
arg.equals("--load-system-file")) {
@@ -322,13 +322,13 @@
} else {
// Shouldn't happen.
System.err.println("No argument supplied to --load");
- exit(1);
+ exit(1); // FIXME
}
}
}
}
if (_BATCH_MODE_.getSymbolValue() == T) {
- exit(0);
+ exit(0); // FIXME
}
}
More information about the armedbear-cvs
mailing list