Changeset 3964


Ignore:
Timestamp:
09/21/03 15:05:51 (19 years ago)
Author:
piso
Message:

Direct superclasses.

File:
1 edited

Legend:

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

    r3958 r3964  
    33 *
    44 * Copyright (C) 2003 Peter Graves
    5  * $Id: BuiltInClass.java,v 1.4 2003-09-21 13:01:06 piso Exp $
     5 * $Id: BuiltInClass.java,v 1.5 2003-09-21 15:05:51 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    5959    {
    6060        BuiltInClass c = new BuiltInClass(symbol);
    61         map.put(symbol, c);
     61        addClass(symbol, c);
    6262        return c;
    6363    }
    6464
    65     // We can't call this class T!
    6665    public static final BuiltInClass CLASS_T            = addClass(T);
    6766
     
    9796    public static final BuiltInClass REAL               = addClass(Symbol.REAL);
    9897    public static final BuiltInClass SEQUENCE           = addClass(Symbol.SEQUENCE);
     98    public static final BuiltInClass SERIOUS_CONDITION  = addClass(Symbol.SERIOUS_CONDITION);
    9999    public static final BuiltInClass SIMPLE_CONDITION   = addClass(Symbol.SIMPLE_CONDITION);
    100100    public static final BuiltInClass SIMPLE_ERROR       = addClass(Symbol.SIMPLE_ERROR);
     
    114114    public static final BuiltInClass UNDEFINED_FUNCTION = addClass(Symbol.UNDEFINED_FUNCTION);
    115115    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    }
    116168}
Note: See TracChangeset for help on using the changeset viewer.