Changeset 10205


Ignore:
Timestamp:
10/23/05 17:24:10 (16 years ago)
Author:
piso
Message:

Symbol refactoring (work in progress).

File:
1 edited

Legend:

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

    r10204 r10205  
    33 *
    44 * Copyright (C) 2002-2005 Peter Graves
    5  * $Id: Lisp.java,v 1.405 2005-10-23 17:16:02 piso Exp $
     5 * $Id: Lisp.java,v 1.406 2005-10-23 17:24:10 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    21272127    }
    21282128
    2129     public static final Symbol BOOLE_CLR =
    2130         exportConstant("BOOLE-CLR", PACKAGE_CL, Fixnum.ZERO);
    2131 
    2132     public static final Symbol BOOLE_SET =
    2133         exportConstant("BOOLE-SET", PACKAGE_CL, Fixnum.ONE);
    2134 
    2135     public static final Symbol BOOLE_1 =
    2136         exportConstant("BOOLE-1", PACKAGE_CL, Fixnum.TWO);
    2137 
    2138     public static final Symbol BOOLE_2 =
    2139         exportConstant("BOOLE-2", PACKAGE_CL, new Fixnum(3));
    2140 
    2141     public static final Symbol BOOLE_C1 =
    2142         exportConstant("BOOLE-C1", PACKAGE_CL, new Fixnum(4));
    2143 
    2144     public static final Symbol BOOLE_C2 =
    2145         exportConstant("BOOLE-C2", PACKAGE_CL, new Fixnum(5));
    2146 
    2147     public static final Symbol BOOLE_AND =
    2148         exportConstant("BOOLE-AND", PACKAGE_CL, new Fixnum(6));
    2149 
    2150     public static final Symbol BOOLE_IOR =
    2151         exportConstant("BOOLE-IOR", PACKAGE_CL, new Fixnum(7));
    2152 
    2153     public static final Symbol BOOLE_XOR =
    2154         exportConstant("BOOLE-XOR", PACKAGE_CL, new Fixnum(8));
    2155 
    2156     public static final Symbol BOOLE_EQV =
    2157         exportConstant("BOOLE-EQV", PACKAGE_CL, new Fixnum(9));
    2158 
    2159     public static final Symbol BOOLE_NAND =
    2160         exportConstant("BOOLE-NAND", PACKAGE_CL, new Fixnum(10));
    2161 
    2162     public static final Symbol BOOLE_NOR =
    2163         exportConstant("BOOLE-NOR", PACKAGE_CL, new Fixnum(11));
    2164 
    2165     public static final Symbol BOOLE_ANDC1 =
    2166         exportConstant("BOOLE-ANDC1", PACKAGE_CL, new Fixnum(12));
    2167 
    2168     public static final Symbol BOOLE_ANDC2 =
    2169         exportConstant("BOOLE-ANDC2", PACKAGE_CL, new Fixnum(13));
    2170 
    2171     public static final Symbol BOOLE_ORC1 =
    2172         exportConstant("BOOLE-ORC1", PACKAGE_CL, new Fixnum(14));
    2173 
    2174     public static final Symbol BOOLE_ORC2 =
    2175         exportConstant("BOOLE-ORC2", PACKAGE_CL, new Fixnum(15));
     2129    static {
     2130        Symbol.BOOLE_CLR.initializeConstant(Fixnum.ZERO);
     2131        Symbol.BOOLE_SET.initializeConstant(Fixnum.ONE);
     2132        Symbol.BOOLE_1.initializeConstant(Fixnum.TWO);
     2133        Symbol.BOOLE_2.initializeConstant(new Fixnum(3));
     2134        Symbol.BOOLE_C1.initializeConstant(new Fixnum(4));
     2135        Symbol.BOOLE_C2.initializeConstant(new Fixnum(5));
     2136        Symbol.BOOLE_AND.initializeConstant(new Fixnum(6));
     2137        Symbol.BOOLE_IOR.initializeConstant(new Fixnum(7));
     2138        Symbol.BOOLE_XOR.initializeConstant(new Fixnum(8));
     2139        Symbol.BOOLE_EQV.initializeConstant(new Fixnum(9));
     2140        Symbol.BOOLE_NAND.initializeConstant(new Fixnum(10));
     2141        Symbol.BOOLE_NOR.initializeConstant(new Fixnum(11));
     2142        Symbol.BOOLE_ANDC1.initializeConstant(new Fixnum(12));
     2143        Symbol.BOOLE_ANDC2.initializeConstant(new Fixnum(13));
     2144        Symbol.BOOLE_ORC1.initializeConstant(new Fixnum(14));
     2145        Symbol.BOOLE_ORC2.initializeConstant(new Fixnum(15));
     2146    }
    21762147
    21772148    // ### call-arguments-limit
Note: See TracChangeset for help on using the changeset viewer.