}
f_systemPackage = new StandardLispPackage(this, makeString("SYSTEM"));
f_keywordPackage = new StandardLispPackage(this, makeString("KEYWORD"));
DOT = new StandardLispSymbol(this, ".");
EVAL.intern(makeString("DOT"), DOT, f_systemPackage);
NIL = new StandardLispNIL(this, "NIL");
EVAL.intern(makeString("NIL"), NIL, f_systemPackage);
QUOTE = new StandardLispSymbol(this, "QUOTE");
EVAL.intern(makeString("QUOTE"), QUOTE, f_systemPackage);
BACKQUOTE = new StandardLispSymbol(this, "BACKQUOTE");
EVAL.intern(makeString("BACKQUOTE"), BACKQUOTE, f_systemPackage);
LIST = new StandardLispSymbol(this, "LIST");
EVAL.intern(makeString("LIST"), LIST, f_systemPackage);
APPEND = new StandardLispSymbol(this, "APPEND");
EVAL.intern(makeString("APPEND"), APPEND, f_systemPackage);
CONS = new StandardLispSymbol(this, "CONS");
EVAL.intern(makeString("CONS"), CONS, f_systemPackage);
COMMA_FN = new StandardLispKeyword(this, "COMMA");
EVAL.intern(makeString("COMMA"), COMMA_FN, f_keywordPackage);
COMMA_ATSIGN_FN = new StandardLispKeyword(this, "COMMA-ATSIGN");
EVAL.intern(makeString("COMMA-ATSIGN"), COMMA_ATSIGN_FN, f_keywordPackage);
COMMA_DOT_FN = new StandardLispKeyword(this, "COMMA-DOT");
EVAL.intern(makeString("COMMA-DOT"), COMMA_DOT_FN, f_keywordPackage);
T = new StandardLispConstant(this, "T");
EVAL.intern(makeString("T"), T, f_systemPackage);
T.setf_symbol_value(T);
ZERO = new StandardLispInteger(this, 0);
ONE = new StandardLispInteger(this, 1);
TWO = new StandardLispInteger(this, 2);
E = new StandardLispReal(this, StrictMath.E);
PI = new StandardLispReal(this, StrictMath.PI);
COLON = new StandardLispCharacter(this, ':');
NEWLINE = new StandardLispCharacter(this, '\n');
SPACE = new StandardLispCharacter(this, ' ');
STRING = new StandardLispSymbol(this, "STRING");
EVAL.intern(makeString("STRING"), STRING, f_systemPackage);
// Lisp data types --------------------------------------------
ARRAY_TYPE = new StandardLispSymbol(this, "ARRAY");
EVAL.intern(makeString("ARRAY"), ARRAY_TYPE, f_systemPackage);
ATOM_TYPE = new StandardLispSymbol(this, "ATOM");
EVAL.intern(makeString("ATOM"), ATOM_TYPE, f_systemPackage);
BIGNUM_TYPE = new StandardLispSymbol(this, "BIGNUM");
EVAL.intern(makeString("BIGNUM"), BIGNUM_TYPE, f_systemPackage);
BOOLEAN_TYPE = new StandardLispSymbol(this, "BOOLEAN");
EVAL.intern(makeString("BOOLEAN"), BOOLEAN_TYPE, f_systemPackage);
CHARACTER_TYPE = new StandardLispSymbol(this, "CHARACTER");
EVAL.intern(makeString("CHARACTER"), CHARACTER_TYPE, f_systemPackage);
COMPLEX_TYPE = new StandardLispSymbol(this, "COMPLEX");
EVAL.intern(makeString("COMPLEX"), COMPLEX_TYPE, f_systemPackage);
CONS_TYPE = new StandardLispSymbol(this, "CONS");
EVAL.intern(makeString("CONS"), CONS_TYPE, f_systemPackage);
DOUBLE_FLOAT_TYPE = new StandardLispSymbol(this, "DOUBLE-FLOAT");
EVAL.intern(makeString("DOUBLE-FLOAT"), DOUBLE_FLOAT_TYPE, f_systemPackage);
FLOAT_TYPE = new StandardLispSymbol(this, "FLOAT");
EVAL.intern(makeString("FLOAT"), FLOAT_TYPE, f_systemPackage);
FUNCTION_TYPE = new StandardLispSymbol(this, "FUNCTION");
EVAL.intern(makeString("FUNCTION"), FUNCTION_TYPE, f_systemPackage);
HASHTABLE_TYPE = new StandardLispSymbol(this, "HASH-TABLE");
EVAL.intern(makeString( "TABLE"), HASHTABLE_TYPE, f_systemPackage);
INTEGER_TYPE = new StandardLispSymbol(this, "INTEGER");
EVAL.intern(makeString("INTEGER"), INTEGER_TYPE, f_systemPackage);
NULL_TYPE = new StandardLispSymbol(this, "NULL");
EVAL.intern(makeString("NULL"), NULL_TYPE, f_systemPackage);
MACRO_TYPE = new StandardLispSymbol(this, "MACRO");
EVAL.intern(makeString("MACRO"), NULL_TYPE, f_systemPackage);
NUMBER_TYPE = new StandardLispSymbol(this, "NUMBER");
EVAL.intern(makeString("NUMBER"), NUMBER_TYPE, f_systemPackage);
PACKAGE_TYPE = new StandardLispSymbol(this, "PACKAGE");
EVAL.intern(makeString("PACKAGE"), PACKAGE_TYPE, f_systemPackage);
PATHNAME_TYPE = new StandardLispSymbol(this, "PATHNAME");
EVAL.intern(makeString("PATHNAME"), PATHNAME_TYPE, f_systemPackage);
REAL_TYPE = new StandardLispSymbol(this, "REAL");
EVAL.intern(makeString("REAL"), REAL_TYPE, f_systemPackage);
STREAM_TYPE = new StandardLispSymbol(this, "STREAM");
EVAL.intern(makeString("STREAM"), STREAM_TYPE, f_systemPackage);
STRING_TYPE = new StandardLispSymbol(this, "STRING");
EVAL.intern(makeString("STRING"), STRING_TYPE, f_systemPackage);
SYMBOL_TYPE = new StandardLispSymbol(this, "SYMBOL");
EVAL.intern(makeString("SYMBOL"), SYMBOL_TYPE, f_systemPackage);
VECTOR_TYPE = new StandardLispSymbol(this, "VECTOR");
EVAL.intern(makeString("VECTOR"), VECTOR_TYPE, f_systemPackage);
}