Changeset 3782


Ignore:
Timestamp:
09/14/03 17:45:07 (19 years ago)
Author:
piso
Message:

Removed obsolete type constants.

File:
1 edited

Legend:

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

    r3772 r3782  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Lisp.java,v 1.130 2003-09-14 17:03:03 piso Exp $
     5 * $Id: Lisp.java,v 1.131 2003-09-14 17:45:07 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    6666    // End-of-file marker.
    6767    public static final LispObject EOF = new LispObject();
    68 
    69     // Types.
    70     static final int TYPE_SYMBOL            = 0x00000001;
    71     static final int TYPE_CONS              = 0x00000002;
    72 
    73     static final int TYPE_FIXNUM            = 0x00000004;
    74     static final int TYPE_BIGNUM            = 0x00000008;
    75     static final int TYPE_RATIO             = 0x00000010;
    76     static final int TYPE_FLOAT             = 0x00000020;
    77     static final int TYPE_COMPLEX           = 0x00000040;
    78 
    79     static final int TYPE_NULL              = 0x00000080;
    80 
    81     static final int TYPE_VECTOR            = 0x00000100;
    82     static final int TYPE_STRING            = 0x00000200;
    83     static final int TYPE_BIT_VECTOR        = 0x00000400;
    84 
    85     // Functions, special operators, macros.
    86     static final int TYPE_PRIMITIVE         = 0x00010000;
    87     static final int TYPE_PRIMITIVE0        = 0x00020000;
    88     static final int TYPE_PRIMITIVE1        = 0x00040000;
    89     static final int TYPE_PRIMITIVE2        = 0x00080000;
    90     static final int TYPE_PRIMITIVE3        = 0x00100000;
    91     static final int TYPE_CLOSURE           = 0x00200000;
    92     static final int TYPE_SPECIAL_OPERATOR  = 0x00400000;
    93     static final int TYPE_COMPILED_FUNCTION = 0x00800000;
    94 
    95     // Composite types.
    96     static final int TYPE_INTEGER  = TYPE_FIXNUM | TYPE_BIGNUM;
    97     static final int TYPE_RATIONAL = TYPE_INTEGER | TYPE_RATIO;
    98     static final int TYPE_REAL     = TYPE_RATIONAL | TYPE_FLOAT;
    9968
    10069    // Functional types.
Note: See TracChangeset for help on using the changeset viewer.