Changeset 12450


Ignore:
Timestamp:
02/12/10 10:53:28 (8 years ago)
Author:
mevenson
Message:

Collect unprocessed command-line arguments in EXT:*COMMAND-LINE-ARGUMENT-LIST*.

Contributed by Dennis Lambe Jr.

Location:
trunk/abcl/src/org/armedbear/lisp
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/Interpreter.java

    r12431 r12450  
    212212
    213213    // 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*
    215216    private static void preprocessCommandLineArguments(String[] args)
    216217
    217218    {
     219        LispObject arglist = NIL;
     220
    218221        if (args != null) {
    219222            for (int i = 0; i < args.length; ++i) {
     
    240243                        System.exit(1);
    241244                    }
    242                 }
    243             }
    244         }
     245                } else {
     246                    arglist = new Cons(args[i], arglist);
     247                }
     248            }
     249        }
     250
     251        _COMMAND_LINE_ARGUMENT_LIST_.setSymbolValue(arglist);
    245252    }
    246253
  • trunk/abcl/src/org/armedbear/lisp/Lisp.java

    r12437 r12450  
    25672567    exportSpecial("*SAVED-BACKTRACE*", PACKAGE_EXT, NIL);
    25682568
     2569  // ### *command-line-argument-list*
     2570  public static final Symbol _COMMAND_LINE_ARGUMENT_LIST_ =
     2571    exportSpecial("*COMMAND-LINE-ARGUMENT-LIST*", PACKAGE_EXT, NIL);
     2572
    25692573  // ### *batch-mode*
    25702574  public static final Symbol _BATCH_MODE_ =
Note: See TracChangeset for help on using the changeset viewer.