Changeset 4275


Ignore:
Timestamp:
10/10/03 02:01:24 (19 years ago)
Author:
piso
Message:

Moved EXIT to Extensions.java.

File:
1 edited

Legend:

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

    r4272 r4275  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Primitives.java,v 1.467 2003-10-10 01:53:48 piso Exp $
     5 * $Id: Primitives.java,v 1.468 2003-10-10 02:01:24 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    3232    // Primitive
    3333    private static final int DIVIDE                     = 1;
    34     private static final int EXIT                       = 2;
    35     private static final int MAX                        = 3;
    36     private static final int MIN                        = 4;
    37     private static final int MULTIPLY                   = 5;
    38     private static final int VALUES                     = 6;
     34    private static final int MAX                        = 2;
     35    private static final int MIN                        = 3;
     36    private static final int MULTIPLY                   = 4;
     37    private static final int VALUES                     = 5;
    3938
    4039    // Primitive1
    41     private static final int ABS                        = 7;
    42     private static final int ARRAYP                     = 8;
    43     private static final int ARRAY_HAS_FILL_POINTER_P   = 9;
    44     private static final int BIT_VECTOR_P               = 10;
    45     private static final int BOTH_CASE_P                = 11;
    46     private static final int CHARACTERP                 = 12;
    47     private static final int CHAR_CODE                  = 13;
    48     private static final int CHAR_DOWNCASE              = 14;
    49     private static final int CHAR_INT                   = 15;
    50     private static final int CHAR_UPCASE                = 16;
    51     private static final int CODE_CHAR                  = 17;
    52     private static final int COMPILED_FUNCTION_P        = 18;
    53     private static final int CONSP                      = 19;
    54     private static final int EVAL                       = 20;
    55     private static final int EVENP                      = 21;
    56     private static final int FOURTH                     = 22;
    57     private static final int FUNCTIONP                  = 23;
    58     private static final int IDENTITY                   = 24;
    59     private static final int KEYWORDP                   = 25;
    60     private static final int LENGTH                     = 26;
    61     private static final int LISTP                      = 27;
    62     private static final int LOWER_CASE_P               = 28;
    63     private static final int MAKE_SYMBOL                = 29;
    64     private static final int MAKUNBOUND                 = 30;
    65     private static final int NUMBERP                    = 31;
    66     private static final int ODDP                       = 32;
    67     private static final int PREDECESSOR                = 33;
    68     private static final int SECOND                     = 34;
    69     private static final int SIMPLE_BIT_VECTOR_P        = 35;
    70     private static final int SIMPLE_STRING_P            = 36;
    71     private static final int SIMPLE_VECTOR_P            = 37;
    72     private static final int SPECIAL_OPERATOR_P         = 38;
    73     private static final int STRINGP                    = 39;
    74     private static final int SUCCESSOR                  = 40;
    75     private static final int SYMBOL_FUNCTION            = 41;
    76     private static final int SYMBOL_NAME                = 42;
    77     private static final int SYMBOL_PACKAGE             = 43;
    78     private static final int SYMBOL_PLIST               = 44;
    79     private static final int SYMBOL_VALUE               = 45;
    80     private static final int THIRD                      = 46;
    81     private static final int UPPER_CASE_P               = 47;
    82     private static final int VALUES_LIST                = 48;
    83     private static final int VECTORP                    = 49;
     40    private static final int ABS                        = 6;
     41    private static final int ARRAYP                     = 7;
     42    private static final int ARRAY_HAS_FILL_POINTER_P   = 8;
     43    private static final int BIT_VECTOR_P               = 9;
     44    private static final int BOTH_CASE_P                = 10;
     45    private static final int CHARACTERP                 = 11;
     46    private static final int CHAR_CODE                  = 12;
     47    private static final int CHAR_DOWNCASE              = 13;
     48    private static final int CHAR_INT                   = 14;
     49    private static final int CHAR_UPCASE                = 15;
     50    private static final int CODE_CHAR                  = 16;
     51    private static final int COMPILED_FUNCTION_P        = 17;
     52    private static final int CONSP                      = 18;
     53    private static final int EVAL                       = 19;
     54    private static final int EVENP                      = 20;
     55    private static final int FOURTH                     = 21;
     56    private static final int FUNCTIONP                  = 22;
     57    private static final int IDENTITY                   = 23;
     58    private static final int KEYWORDP                   = 24;
     59    private static final int LENGTH                     = 25;
     60    private static final int LISTP                      = 26;
     61    private static final int LOWER_CASE_P               = 27;
     62    private static final int MAKE_SYMBOL                = 28;
     63    private static final int MAKUNBOUND                 = 29;
     64    private static final int NUMBERP                    = 30;
     65    private static final int ODDP                       = 31;
     66    private static final int PREDECESSOR                = 32;
     67    private static final int SECOND                     = 33;
     68    private static final int SIMPLE_BIT_VECTOR_P        = 34;
     69    private static final int SIMPLE_STRING_P            = 35;
     70    private static final int SIMPLE_VECTOR_P            = 36;
     71    private static final int SPECIAL_OPERATOR_P         = 37;
     72    private static final int STRINGP                    = 38;
     73    private static final int SUCCESSOR                  = 39;
     74    private static final int SYMBOL_FUNCTION            = 40;
     75    private static final int SYMBOL_NAME                = 41;
     76    private static final int SYMBOL_PACKAGE             = 42;
     77    private static final int SYMBOL_PLIST               = 43;
     78    private static final int SYMBOL_VALUE               = 44;
     79    private static final int THIRD                      = 45;
     80    private static final int UPPER_CASE_P               = 46;
     81    private static final int VALUES_LIST                = 47;
     82    private static final int VECTORP                    = 48;
    8483
    8584    // Primitive2
    86     private static final int MEMBER                     = 50;
    87     private static final int RPLACA                     = 51;
    88     private static final int RPLACD                     = 52;
    89     private static final int SET                        = 53;
     85    private static final int MEMBER                     = 49;
     86    private static final int RPLACA                     = 50;
     87    private static final int RPLACD                     = 51;
     88    private static final int SET                        = 52;
    9089
    9190    private Primitives()
     
    9392        definePrimitive("*", MULTIPLY);
    9493        definePrimitive("/", DIVIDE);
    95         definePrimitive("exit", EXIT);
    9694        definePrimitive("max", MAX);
    9795        definePrimitive("min", MIN);
     
    195193            case VALUES:                        // ### values
    196194                return values(args);
    197             case EXIT:                          // ### exit
    198                 exit();
    199                 return T;
    200195            default:
    201196                Debug.trace("bad index " + index);
Note: See TracChangeset for help on using the changeset viewer.