Changeset 8792


Ignore:
Timestamp:
03/19/05 14:34:42 (16 years ago)
Author:
piso
Message:

exit() => exit(int status)
*BATCH-MODE*
*PRELOAD*

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/Lisp.java

    r8784 r8792  
    33 *
    44 * Copyright (C) 2002-2005 Peter Graves
    5  * $Id: Lisp.java,v 1.327 2005-03-17 14:51:59 piso Exp $
     5 * $Id: Lisp.java,v 1.328 2005-03-19 14:34:42 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    15011501            new Fixnum(Integer.MIN_VALUE));
    15021502
    1503     public static void exit()
     1503    public static void exit(int status)
    15041504    {
    15051505        Interpreter interpreter = Interpreter.getInstance();
    15061506        if (interpreter != null)
    1507             interpreter.kill();
     1507            interpreter.kill(status);
    15081508    }
    15091509
     
    19111911        exportSpecial("*SAVED-BACKTRACE*", PACKAGE_EXT, NIL);
    19121912
     1913    // ### *batch-mode*
     1914    public static final Symbol _BATCH_MODE_ =
     1915        exportSpecial("*BATCH-MODE*", PACKAGE_EXT, NIL);
     1916
     1917    // ### *preload*
     1918    public static final Symbol _PRELOAD_ =
     1919        internSpecial("*PRELOAD*", PACKAGE_SYS, NIL);
     1920
    19131921    // ### *speed* compiler policy
    19141922    public static final Symbol _SPEED_ =
Note: See TracChangeset for help on using the changeset viewer.