Changeset 12450
- Timestamp:
- 02/12/10 10:53:28 (13 years ago)
- Location:
- trunk/abcl/src/org/armedbear/lisp
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/src/org/armedbear/lisp/Interpreter.java
r12431 r12450 212 212 213 213 // Check for --noinit; verify that arguments are supplied for --load and 214 // --eval options. 214 // --eval options. Copy all unrecognized arguments into 215 // ext:*command-line-argument-list* 215 216 private static void preprocessCommandLineArguments(String[] args) 216 217 217 218 { 219 LispObject arglist = NIL; 220 218 221 if (args != null) { 219 222 for (int i = 0; i < args.length; ++i) { … … 240 243 System.exit(1); 241 244 } 242 } 243 } 244 } 245 } else { 246 arglist = new Cons(args[i], arglist); 247 } 248 } 249 } 250 251 _COMMAND_LINE_ARGUMENT_LIST_.setSymbolValue(arglist); 245 252 } 246 253 -
trunk/abcl/src/org/armedbear/lisp/Lisp.java
r12437 r12450 2567 2567 exportSpecial("*SAVED-BACKTRACE*", PACKAGE_EXT, NIL); 2568 2568 2569 // ### *command-line-argument-list* 2570 public static final Symbol _COMMAND_LINE_ARGUMENT_LIST_ = 2571 exportSpecial("*COMMAND-LINE-ARGUMENT-LIST*", PACKAGE_EXT, NIL); 2572 2569 2573 // ### *batch-mode* 2570 2574 public static final Symbol _BATCH_MODE_ =
Note: See TracChangeset
for help on using the changeset viewer.