Changeset 3964
 Timestamp:
 09/21/03 15:05:51 (19 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

trunk/j/src/org/armedbear/lisp/BuiltInClass.java
r3958 r3964 3 3 * 4 4 * Copyright (C) 2003 Peter Graves 5 * $Id: BuiltInClass.java,v 1. 4 20030921 13:01:06piso Exp $5 * $Id: BuiltInClass.java,v 1.5 20030921 15:05:51 piso Exp $ 6 6 * 7 7 * This program is free software; you can redistribute it and/or … … 59 59 { 60 60 BuiltInClass c = new BuiltInClass(symbol); 61 map.put(symbol, c);61 addClass(symbol, c); 62 62 return c; 63 63 } 64 64 65 // We can't call this class T!66 65 public static final BuiltInClass CLASS_T = addClass(T); 67 66 … … 97 96 public static final BuiltInClass REAL = addClass(Symbol.REAL); 98 97 public static final BuiltInClass SEQUENCE = addClass(Symbol.SEQUENCE); 98 public static final BuiltInClass SERIOUS_CONDITION = addClass(Symbol.SERIOUS_CONDITION); 99 99 public static final BuiltInClass SIMPLE_CONDITION = addClass(Symbol.SIMPLE_CONDITION); 100 100 public static final BuiltInClass SIMPLE_ERROR = addClass(Symbol.SIMPLE_ERROR); … … 114 114 public static final BuiltInClass UNDEFINED_FUNCTION = addClass(Symbol.UNDEFINED_FUNCTION); 115 115 public static final BuiltInClass VECTOR = addClass(Symbol.VECTOR); 116 117 static { 118 ARITHMETIC_ERROR.setDirectSuperclass(ERROR); 119 ARRAY.setDirectSuperclass(CLASS_T); 120 BIGNUM.setDirectSuperclass(INTEGER); 121 BIT_VECTOR.setDirectSuperclass(VECTOR); 122 BUILT_IN_CLASS.setDirectSuperclass(CLASS); 123 CELL_ERROR.setDirectSuperclass(ERROR); 124 CHARACTER.setDirectSuperclass(CLASS_T); 125 CLASS.setDirectSuperclass(CLASS_T); 126 COMPLEX.setDirectSuperclass(NUMBER); 127 CONDITION.setDirectSuperclass(STANDARD_OBJECT); 128 CONS.setDirectSuperclass(LIST); 129 CONTROL_ERROR.setDirectSuperclass(ERROR); 130 ERROR.setDirectSuperclass(SERIOUS_CONDITION); 131 FIXNUM.setDirectSuperclass(INTEGER); 132 FLOAT.setDirectSuperclass(REAL); 133 FUNCTION.setDirectSuperclass(CLASS_T); 134 HASH_TABLE.setDirectSuperclass(CLASS_T); 135 INTEGER.setDirectSuperclass(RATIONAL); 136 LIST.setDirectSuperclass(SEQUENCE); 137 NULL.setDirectSuperclass(LIST); 138 NUMBER.setDirectSuperclass(CLASS_T); 139 PACKAGE.setDirectSuperclass(CLASS_T); 140 PACKAGE_ERROR.setDirectSuperclass(ERROR); 141 PARSE_ERROR.setDirectSuperclass(ERROR); 142 PATHNAME.setDirectSuperclass(CLASS_T); 143 PROGRAM_ERROR.setDirectSuperclass(ERROR); 144 RANDOM_STATE.setDirectSuperclass(CLASS_T); 145 RATIO.setDirectSuperclass(RATIONAL); 146 RATIONAL.setDirectSuperclass(REAL); 147 REAL.setDirectSuperclass(NUMBER); 148 SEQUENCE.setDirectSuperclass(CLASS_T); 149 SERIOUS_CONDITION.setDirectSuperclass(CONDITION); 150 SIMPLE_CONDITION.setDirectSuperclass(CONDITION); 151 SIMPLE_ERROR.setDirectSuperclass(ERROR); 152 STANDARD_CLASS.setDirectSuperclass(CLASS); 153 STANDARD_OBJECT.setDirectSuperclass(CLASS_T); 154 STREAM.setDirectSuperclass(CLASS_T); 155 STREAM_ERROR.setDirectSuperclass(ERROR); 156 STRING.setDirectSuperclass(VECTOR); 157 STRING_STREAM.setDirectSuperclass(STREAM); 158 STRUCTURE_CLASS.setDirectSuperclass(CLASS); 159 STRUCTURE_OBJECT.setDirectSuperclass(CLASS_T); 160 SYMBOL.setDirectSuperclass(CLASS_T); 161 TWO_WAY_STREAM.setDirectSuperclass(STREAM); 162 TYPE_ERROR.setDirectSuperclass(ERROR); 163 UNBOUND_SLOT.setDirectSuperclass(CELL_ERROR); 164 UNBOUND_VARIABLE.setDirectSuperclass(CELL_ERROR); 165 UNDEFINED_FUNCTION.setDirectSuperclass(CELL_ERROR); 166 VECTOR.setDirectSuperclasses(list2(ARRAY, SEQUENCE)); 167 } 116 168 }
Note: See TracChangeset
for help on using the changeset viewer.