Changeset 3974


Ignore:
Timestamp:
09/21/03 19:31:21 (19 years ago)
Author:
piso
Message:

Finished adding classes for built-in types.

File:
1 edited

Legend:

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

    r3964 r3974  
    33 *
    44 * Copyright (C) 2003 Peter Graves
    5  * $Id: BuiltInClass.java,v 1.5 2003-09-21 15:05:51 piso Exp $
     5 * $Id: BuiltInClass.java,v 1.6 2003-09-21 19:31:21 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    6363    }
    6464
    65     public static final BuiltInClass CLASS_T            = addClass(T);
    66 
    67     public static final BuiltInClass ARITHMETIC_ERROR   = addClass(Symbol.ARITHMETIC_ERROR);
    68     public static final BuiltInClass ARRAY              = addClass(Symbol.ARRAY);
    69     public static final BuiltInClass BIGNUM             = addClass(Symbol.BIGNUM);
    70     public static final BuiltInClass BIT_VECTOR         = addClass(Symbol.BIT_VECTOR);
    71     public static final BuiltInClass BUILT_IN_CLASS     = addClass(Symbol.BUILT_IN_CLASS);
    72     public static final BuiltInClass CELL_ERROR         = addClass(Symbol.CELL_ERROR);
    73     public static final BuiltInClass CHARACTER          = addClass(Symbol.CHARACTER);
    74     public static final BuiltInClass CLASS              = addClass(Symbol.CLASS);
    75     public static final BuiltInClass COMPLEX            = addClass(Symbol.COMPLEX);
    76     public static final BuiltInClass CONDITION          = addClass(Symbol.CONDITION);
    77     public static final BuiltInClass CONS               = addClass(Symbol.CONS);
    78     public static final BuiltInClass CONTROL_ERROR      = addClass(Symbol.CONTROL_ERROR);
    79     public static final BuiltInClass ERROR              = addClass(Symbol.ERROR);
    80     public static final BuiltInClass FIXNUM             = addClass(Symbol.FIXNUM);
    81     public static final BuiltInClass FLOAT              = addClass(Symbol.FLOAT);
    82     public static final BuiltInClass FUNCTION           = addClass(Symbol.FUNCTION);
    83     public static final BuiltInClass HASH_TABLE         = addClass(Symbol.HASH_TABLE);
    84     public static final BuiltInClass INTEGER            = addClass(Symbol.INTEGER);
    85     public static final BuiltInClass LIST               = addClass(Symbol.LIST);
    86     public static final BuiltInClass NULL               = addClass(Symbol.NULL);
    87     public static final BuiltInClass NUMBER             = addClass(Symbol.NUMBER);
    88     public static final BuiltInClass PACKAGE            = addClass(Symbol.PACKAGE);
    89     public static final BuiltInClass PACKAGE_ERROR      = addClass(Symbol.PACKAGE_ERROR);
    90     public static final BuiltInClass PARSE_ERROR        = addClass(Symbol.PARSE_ERROR);
    91     public static final BuiltInClass PATHNAME           = addClass(Symbol.PATHNAME);
    92     public static final BuiltInClass PROGRAM_ERROR      = addClass(Symbol.PROGRAM_ERROR);
    93     public static final BuiltInClass RANDOM_STATE       = addClass(Symbol.RANDOM_STATE);
    94     public static final BuiltInClass RATIO              = addClass(Symbol.RATIO);
    95     public static final BuiltInClass RATIONAL           = addClass(Symbol.RATIONAL);
    96     public static final BuiltInClass REAL               = addClass(Symbol.REAL);
    97     public static final BuiltInClass SEQUENCE           = addClass(Symbol.SEQUENCE);
    98     public static final BuiltInClass SERIOUS_CONDITION  = addClass(Symbol.SERIOUS_CONDITION);
    99     public static final BuiltInClass SIMPLE_CONDITION   = addClass(Symbol.SIMPLE_CONDITION);
    100     public static final BuiltInClass SIMPLE_ERROR       = addClass(Symbol.SIMPLE_ERROR);
    101     public static final BuiltInClass STANDARD_CLASS     = addClass(Symbol.STANDARD_CLASS);
    102     public static final BuiltInClass STANDARD_OBJECT    = addClass(Symbol.STANDARD_OBJECT);
    103     public static final BuiltInClass STREAM             = addClass(Symbol.STREAM);
    104     public static final BuiltInClass STREAM_ERROR       = addClass(Symbol.STREAM_ERROR);
    105     public static final BuiltInClass STRING             = addClass(Symbol.STRING);
    106     public static final BuiltInClass STRING_STREAM      = addClass(Symbol.STRING_STREAM);
    107     public static final BuiltInClass STRUCTURE_CLASS    = addClass(Symbol.STRUCTURE_CLASS);
    108     public static final BuiltInClass STRUCTURE_OBJECT   = addClass(Symbol.STRUCTURE_OBJECT);
    109     public static final BuiltInClass SYMBOL             = addClass(Symbol.SYMBOL);
    110     public static final BuiltInClass TWO_WAY_STREAM     = addClass(Symbol.TWO_WAY_STREAM);
    111     public static final BuiltInClass TYPE_ERROR         = addClass(Symbol.TYPE_ERROR);
    112     public static final BuiltInClass UNBOUND_SLOT       = addClass(Symbol.UNBOUND_SLOT);
    113     public static final BuiltInClass UNBOUND_VARIABLE   = addClass(Symbol.UNBOUND_VARIABLE);
    114     public static final BuiltInClass UNDEFINED_FUNCTION = addClass(Symbol.UNDEFINED_FUNCTION);
    115     public static final BuiltInClass VECTOR             = addClass(Symbol.VECTOR);
     65    public static final BuiltInClass CLASS_T                          = addClass(T);
     66
     67    public static final BuiltInClass ARITHMETIC_ERROR                 = addClass(Symbol.ARITHMETIC_ERROR);
     68    public static final BuiltInClass ARRAY                            = addClass(Symbol.ARRAY);
     69    public static final BuiltInClass BIGNUM                           = addClass(Symbol.BIGNUM);
     70    public static final BuiltInClass BIT_VECTOR                       = addClass(Symbol.BIT_VECTOR);
     71    public static final BuiltInClass BROADCAST_STREAM                 = addClass(Symbol.BROADCAST_STREAM);
     72    public static final BuiltInClass BUILT_IN_CLASS                   = addClass(Symbol.BUILT_IN_CLASS);
     73    public static final BuiltInClass CELL_ERROR                       = addClass(Symbol.CELL_ERROR);
     74    public static final BuiltInClass CHARACTER                        = addClass(Symbol.CHARACTER);
     75    public static final BuiltInClass CLASS                            = addClass(Symbol.CLASS);
     76    public static final BuiltInClass COMPLEX                          = addClass(Symbol.COMPLEX);
     77    public static final BuiltInClass CONCATENATED_STREAM              = addClass(Symbol.CONCATENATED_STREAM);
     78    public static final BuiltInClass CONDITION                        = addClass(Symbol.CONDITION);
     79    public static final BuiltInClass CONS                             = addClass(Symbol.CONS);
     80    public static final BuiltInClass CONTROL_ERROR                    = addClass(Symbol.CONTROL_ERROR);
     81    public static final BuiltInClass DIVISION_BY_ZERO                 = addClass(Symbol.DIVISION_BY_ZERO);
     82    public static final BuiltInClass ECHO_STREAM                      = addClass(Symbol.ECHO_STREAM);
     83    public static final BuiltInClass END_OF_FILE                      = addClass(Symbol.END_OF_FILE);
     84    public static final BuiltInClass ERROR                            = addClass(Symbol.ERROR);
     85    public static final BuiltInClass FILE_ERROR                       = addClass(Symbol.FILE_ERROR);
     86    public static final BuiltInClass FILE_STREAM                      = addClass(Symbol.FILE_STREAM);
     87    public static final BuiltInClass FIXNUM                           = addClass(Symbol.FIXNUM);
     88    public static final BuiltInClass FLOAT                            = addClass(Symbol.FLOAT);
     89    public static final BuiltInClass FLOATING_POINT_INEXACT           = addClass(Symbol.FLOATING_POINT_INEXACT);
     90    public static final BuiltInClass FLOATING_POINT_INVALID_OPERATION = addClass(Symbol.FLOATING_POINT_INVALID_OPERATION);
     91    public static final BuiltInClass FLOATING_POINT_OVERFLOW          = addClass(Symbol.FLOATING_POINT_OVERFLOW);
     92    public static final BuiltInClass FLOATING_POINT_UNDERFLOW         = addClass(Symbol.FLOATING_POINT_UNDERFLOW);
     93    public static final BuiltInClass FUNCTION                         = addClass(Symbol.FUNCTION);
     94    public static final BuiltInClass GENERIC_FUNCTION                 = addClass(Symbol.GENERIC_FUNCTION);
     95    public static final BuiltInClass HASH_TABLE                       = addClass(Symbol.HASH_TABLE);
     96    public static final BuiltInClass INTEGER                          = addClass(Symbol.INTEGER);
     97    public static final BuiltInClass LIST                             = addClass(Symbol.LIST);
     98    public static final BuiltInClass LOGICAL_PATHNAME                 = addClass(Symbol.LOGICAL_PATHNAME);
     99    public static final BuiltInClass METHOD                           = addClass(Symbol.METHOD);
     100    public static final BuiltInClass METHOD_COMBINATION               = addClass(Symbol.METHOD_COMBINATION);
     101    public static final BuiltInClass NULL                             = addClass(Symbol.NULL);
     102    public static final BuiltInClass NUMBER                           = addClass(Symbol.NUMBER);
     103    public static final BuiltInClass PACKAGE                          = addClass(Symbol.PACKAGE);
     104    public static final BuiltInClass PACKAGE_ERROR                    = addClass(Symbol.PACKAGE_ERROR);
     105    public static final BuiltInClass PARSE_ERROR                      = addClass(Symbol.PARSE_ERROR);
     106    public static final BuiltInClass PATHNAME                         = addClass(Symbol.PATHNAME);
     107    public static final BuiltInClass PRINT_NOT_READABLE               = addClass(Symbol.PRINT_NOT_READABLE);
     108    public static final BuiltInClass PROGRAM_ERROR                    = addClass(Symbol.PROGRAM_ERROR);
     109    public static final BuiltInClass RANDOM_STATE                     = addClass(Symbol.RANDOM_STATE);
     110    public static final BuiltInClass RATIO                            = addClass(Symbol.RATIO);
     111    public static final BuiltInClass RATIONAL                         = addClass(Symbol.RATIONAL);
     112    public static final BuiltInClass READER_ERROR                     = addClass(Symbol.READER_ERROR);
     113    public static final BuiltInClass READTABLE                        = addClass(Symbol.READTABLE);
     114    public static final BuiltInClass REAL                             = addClass(Symbol.REAL);
     115    public static final BuiltInClass RESTART                          = addClass(Symbol.RESTART);
     116    public static final BuiltInClass SEQUENCE                         = addClass(Symbol.SEQUENCE);
     117    public static final BuiltInClass SERIOUS_CONDITION                = addClass(Symbol.SERIOUS_CONDITION);
     118    public static final BuiltInClass SIMPLE_CONDITION                 = addClass(Symbol.SIMPLE_CONDITION);
     119    public static final BuiltInClass SIMPLE_ERROR                     = addClass(Symbol.SIMPLE_ERROR);
     120    public static final BuiltInClass SIMPLE_TYPE_ERROR                = addClass(Symbol.SIMPLE_TYPE_ERROR);
     121    public static final BuiltInClass SIMPLE_WARNING                   = addClass(Symbol.SIMPLE_WARNING);
     122    public static final BuiltInClass STANDARD_CLASS                   = addClass(Symbol.STANDARD_CLASS);
     123    public static final BuiltInClass STANDARD_GENERIC_FUNCTION        = addClass(Symbol.STANDARD_GENERIC_FUNCTION);
     124    public static final BuiltInClass STANDARD_METHOD                  = addClass(Symbol.STANDARD_METHOD);
     125    public static final BuiltInClass STANDARD_OBJECT                  = addClass(Symbol.STANDARD_OBJECT);
     126    public static final BuiltInClass STORAGE_CONDITION                = addClass(Symbol.STORAGE_CONDITION);
     127    public static final BuiltInClass STREAM                           = addClass(Symbol.STREAM);
     128    public static final BuiltInClass STREAM_ERROR                     = addClass(Symbol.STREAM_ERROR);
     129    public static final BuiltInClass STRING                           = addClass(Symbol.STRING);
     130    public static final BuiltInClass STRING_STREAM                    = addClass(Symbol.STRING_STREAM);
     131    public static final BuiltInClass STRUCTURE_CLASS                  = addClass(Symbol.STRUCTURE_CLASS);
     132    public static final BuiltInClass STRUCTURE_OBJECT                 = addClass(Symbol.STRUCTURE_OBJECT);
     133    public static final BuiltInClass STYLE_WARNING                    = addClass(Symbol.STYLE_WARNING);
     134    public static final BuiltInClass SYMBOL                           = addClass(Symbol.SYMBOL);
     135    public static final BuiltInClass SYNONYM_STREAM                   = addClass(Symbol.SYNONYM_STREAM);
     136    public static final BuiltInClass TWO_WAY_STREAM                   = addClass(Symbol.TWO_WAY_STREAM);
     137    public static final BuiltInClass TYPE_ERROR                       = addClass(Symbol.TYPE_ERROR);
     138    public static final BuiltInClass UNBOUND_SLOT                     = addClass(Symbol.UNBOUND_SLOT);
     139    public static final BuiltInClass UNBOUND_VARIABLE                 = addClass(Symbol.UNBOUND_VARIABLE);
     140    public static final BuiltInClass UNDEFINED_FUNCTION               = addClass(Symbol.UNDEFINED_FUNCTION);
     141    public static final BuiltInClass VECTOR                           = addClass(Symbol.VECTOR);
     142    public static final BuiltInClass WARNING                          = addClass(Symbol.WARNING);
    116143
    117144    static {
    118145        ARITHMETIC_ERROR.setDirectSuperclass(ERROR);
     146        ARITHMETIC_ERROR.setCPL(ARITHMETIC_ERROR, ERROR, SERIOUS_CONDITION,
     147                                CONDITION, CLASS_T);
    119148        ARRAY.setDirectSuperclass(CLASS_T);
     149        ARRAY.setCPL(ARRAY, CLASS_T);
    120150        BIGNUM.setDirectSuperclass(INTEGER);
     151        BIGNUM.setCPL(BIGNUM, INTEGER, RATIONAL, REAL, NUMBER, CLASS_T);
    121152        BIT_VECTOR.setDirectSuperclass(VECTOR);
     153        BIT_VECTOR.setCPL(BIT_VECTOR, VECTOR, ARRAY, SEQUENCE, CLASS_T);
     154        BROADCAST_STREAM.setDirectSuperclass(STREAM);
     155        BROADCAST_STREAM.setCPL(BROADCAST_STREAM, STREAM, CLASS_T);
    122156        BUILT_IN_CLASS.setDirectSuperclass(CLASS);
     157        BUILT_IN_CLASS.setCPL(BUILT_IN_CLASS, CLASS, STANDARD_OBJECT, CLASS_T);
    123158        CELL_ERROR.setDirectSuperclass(ERROR);
     159        CELL_ERROR.setCPL(CELL_ERROR, ERROR, SERIOUS_CONDITION, CONDITION,
     160                          CLASS_T);
    124161        CHARACTER.setDirectSuperclass(CLASS_T);
     162        CHARACTER.setCPL(CHARACTER, CLASS_T);
    125163        CLASS.setDirectSuperclass(CLASS_T);
     164        CLASS.setCPL(CLASS, STANDARD_OBJECT, CLASS_T);
    126165        COMPLEX.setDirectSuperclass(NUMBER);
     166        COMPLEX.setCPL(COMPLEX, NUMBER, CLASS_T);
     167        CONCATENATED_STREAM.setDirectSuperclass(STREAM);
     168        CONCATENATED_STREAM.setCPL(CONCATENATED_STREAM, STREAM, CLASS_T);
    127169        CONDITION.setDirectSuperclass(STANDARD_OBJECT);
     170        CONDITION.setCPL(CONDITION, CLASS_T);
    128171        CONS.setDirectSuperclass(LIST);
     172        CONS.setCPL(CONS, LIST, SEQUENCE, CLASS_T);
    129173        CONTROL_ERROR.setDirectSuperclass(ERROR);
     174        CONTROL_ERROR.setCPL(CONTROL_ERROR, ERROR, SERIOUS_CONDITION, CONDITION,
     175                             CLASS_T);
     176        DIVISION_BY_ZERO.setDirectSuperclass(ARITHMETIC_ERROR);
     177        DIVISION_BY_ZERO.setCPL(DIVISION_BY_ZERO, ARITHMETIC_ERROR, ERROR,
     178                                SERIOUS_CONDITION, CONDITION, CLASS_T);
     179        ECHO_STREAM.setDirectSuperclass(CLASS_T);
     180        ECHO_STREAM.setCPL(ECHO_STREAM, CLASS_T);
     181        END_OF_FILE.setDirectSuperclass(STREAM_ERROR);
     182        END_OF_FILE.setCPL(END_OF_FILE, STREAM_ERROR, ERROR, SERIOUS_CONDITION,
     183                           CONDITION, CLASS_T);
    130184        ERROR.setDirectSuperclass(SERIOUS_CONDITION);
     185        ERROR.setCPL(ERROR, SERIOUS_CONDITION, CONDITION, CLASS_T);
    131186        FIXNUM.setDirectSuperclass(INTEGER);
     187        FIXNUM.setCPL(FIXNUM, INTEGER, RATIONAL, REAL, NUMBER, CLASS_T);
     188        FILE_ERROR.setDirectSuperclass(ERROR);
     189        FILE_ERROR.setCPL(FILE_ERROR, ERROR, SERIOUS_CONDITION, CONDITION,
     190                          CLASS_T);
     191        FILE_STREAM.setDirectSuperclass(STREAM);
     192        FILE_STREAM.setCPL(FILE_STREAM, STREAM, CLASS_T);
    132193        FLOAT.setDirectSuperclass(REAL);
     194        FLOAT.setCPL(FLOAT, REAL, NUMBER, CLASS_T);
     195        FLOATING_POINT_INEXACT.setDirectSuperclass(ARITHMETIC_ERROR);
     196        FLOATING_POINT_INEXACT.setCPL(FLOATING_POINT_INEXACT, ARITHMETIC_ERROR,
     197                                      ERROR, SERIOUS_CONDITION, CONDITION,
     198                                      CLASS_T);
     199        FLOATING_POINT_INVALID_OPERATION.setDirectSuperclass(ARITHMETIC_ERROR);
     200        FLOATING_POINT_INVALID_OPERATION.setCPL(FLOATING_POINT_INVALID_OPERATION,
     201                                                ARITHMETIC_ERROR, ERROR,
     202                                                SERIOUS_CONDITION, CONDITION,
     203                                                CLASS_T);
     204        FLOATING_POINT_OVERFLOW.setDirectSuperclass(ARITHMETIC_ERROR);
     205        FLOATING_POINT_OVERFLOW.setCPL(FLOATING_POINT_OVERFLOW, ARITHMETIC_ERROR,
     206                                       ERROR, SERIOUS_CONDITION, CONDITION,
     207                                       CLASS_T);
     208        FLOATING_POINT_UNDERFLOW.setDirectSuperclass(ARITHMETIC_ERROR);
     209        FLOATING_POINT_UNDERFLOW.setCPL(FLOATING_POINT_UNDERFLOW, ARITHMETIC_ERROR,
     210                                        ERROR, SERIOUS_CONDITION, CONDITION,
     211                                        CLASS_T);
    133212        FUNCTION.setDirectSuperclass(CLASS_T);
     213        FUNCTION.setCPL(FUNCTION, CLASS_T);
     214        GENERIC_FUNCTION.setDirectSuperclass(FUNCTION);
     215        GENERIC_FUNCTION.setCPL(GENERIC_FUNCTION, FUNCTION, CLASS_T);
    134216        HASH_TABLE.setDirectSuperclass(CLASS_T);
     217        HASH_TABLE.setCPL(HASH_TABLE, CLASS_T);
    135218        INTEGER.setDirectSuperclass(RATIONAL);
     219        INTEGER.setCPL(INTEGER, RATIONAL, REAL, NUMBER, CLASS_T);
    136220        LIST.setDirectSuperclass(SEQUENCE);
     221        LIST.setCPL(LIST, SEQUENCE, CLASS_T);
     222        LOGICAL_PATHNAME.setDirectSuperclass(PATHNAME);
     223        LOGICAL_PATHNAME.setCPL(LOGICAL_PATHNAME, PATHNAME, CLASS_T);
     224        METHOD.setDirectSuperclass(CLASS_T);
     225        METHOD.setCPL(METHOD, CLASS_T);
     226        METHOD_COMBINATION.setDirectSuperclass(CLASS_T);
     227        METHOD_COMBINATION.setCPL(METHOD_COMBINATION, CLASS_T);
    137228        NULL.setDirectSuperclass(LIST);
     229        NULL.setCPL(NULL, SYMBOL, LIST, SEQUENCE, CLASS_T);
    138230        NUMBER.setDirectSuperclass(CLASS_T);
     231        NUMBER.setCPL(NUMBER, CLASS_T);
    139232        PACKAGE.setDirectSuperclass(CLASS_T);
     233        PACKAGE.setCPL(PACKAGE, CLASS_T);
    140234        PACKAGE_ERROR.setDirectSuperclass(ERROR);
     235        PACKAGE_ERROR.setCPL(PACKAGE_ERROR, ERROR, SERIOUS_CONDITION, CONDITION,
     236                             CLASS_T);
    141237        PARSE_ERROR.setDirectSuperclass(ERROR);
     238        PARSE_ERROR.setCPL(PARSE_ERROR, ERROR, SERIOUS_CONDITION, CONDITION,
     239                           CLASS_T);
    142240        PATHNAME.setDirectSuperclass(CLASS_T);
     241        PATHNAME.setCPL(PATHNAME, CLASS_T);
     242        PRINT_NOT_READABLE.setDirectSuperclass(ERROR);
     243        PRINT_NOT_READABLE.setCPL(PRINT_NOT_READABLE, ERROR, SERIOUS_CONDITION,
     244                                  CONDITION, CLASS_T);
    143245        PROGRAM_ERROR.setDirectSuperclass(ERROR);
     246        PROGRAM_ERROR.setCPL(PROGRAM_ERROR, ERROR, SERIOUS_CONDITION, CONDITION,
     247                             CLASS_T);
    144248        RANDOM_STATE.setDirectSuperclass(CLASS_T);
     249        RANDOM_STATE.setCPL(RANDOM_STATE, CLASS_T);
    145250        RATIO.setDirectSuperclass(RATIONAL);
     251        RATIO.setCPL(RATIO, RATIONAL, REAL, NUMBER, CLASS_T);
    146252        RATIONAL.setDirectSuperclass(REAL);
     253        RATIONAL.setCPL(RATIONAL, REAL, NUMBER, CLASS_T);
     254        READER_ERROR.setDirectSuperclasses(list2(PARSE_ERROR, STREAM_ERROR));
     255        READER_ERROR.setCPL(READER_ERROR, PARSE_ERROR, STREAM_ERROR,ERROR,
     256                            SERIOUS_CONDITION, CONDITION, CLASS_T);
     257        READTABLE.setDirectSuperclass(CLASS_T);
     258        READTABLE.setCPL(READTABLE, CLASS_T);
    147259        REAL.setDirectSuperclass(NUMBER);
     260        REAL.setCPL(REAL, NUMBER, CLASS_T);
     261        RESTART.setDirectSuperclass(CLASS_T);
     262        RESTART.setCPL(RESTART, CLASS_T);
    148263        SEQUENCE.setDirectSuperclass(CLASS_T);
     264        SEQUENCE.setCPL(SEQUENCE, CLASS_T);
    149265        SERIOUS_CONDITION.setDirectSuperclass(CONDITION);
     266        SERIOUS_CONDITION.setCPL(SERIOUS_CONDITION, CONDITION, CLASS_T);
    150267        SIMPLE_CONDITION.setDirectSuperclass(CONDITION);
     268        SIMPLE_CONDITION.setCPL(SIMPLE_CONDITION, CONDITION, CLASS_T);
    151269        SIMPLE_ERROR.setDirectSuperclass(ERROR);
     270        SIMPLE_ERROR.setCPL(SIMPLE_ERROR, SIMPLE_CONDITION, ERROR,
     271                            SERIOUS_CONDITION, CONDITION, CLASS_T);
     272        SIMPLE_TYPE_ERROR.setDirectSuperclasses(list2(SIMPLE_CONDITION, TYPE_ERROR));
     273        SIMPLE_TYPE_ERROR.setCPL(SIMPLE_TYPE_ERROR, SIMPLE_CONDITION,
     274                                 TYPE_ERROR, ERROR, SERIOUS_CONDITION,
     275                                 CONDITION, CLASS_T);
     276        SIMPLE_WARNING.setDirectSuperclasses(list2(SIMPLE_CONDITION, WARNING));
     277        SIMPLE_WARNING.setCPL(SIMPLE_WARNING, SIMPLE_CONDITION, WARNING,
     278                              CONDITION, CLASS_T);
    152279        STANDARD_CLASS.setDirectSuperclass(CLASS);
     280        STANDARD_CLASS.setCPL(STANDARD_CLASS, CLASS, STANDARD_OBJECT, CLASS_T);
     281        STANDARD_GENERIC_FUNCTION.setDirectSuperclass(GENERIC_FUNCTION);
     282        STANDARD_GENERIC_FUNCTION.setCPL(STANDARD_GENERIC_FUNCTION,
     283                                         GENERIC_FUNCTION, FUNCTION, CLASS_T);
     284        STANDARD_METHOD.setDirectSuperclass(list2(METHOD, STANDARD_OBJECT));
     285        STANDARD_METHOD.setCPL(STANDARD_METHOD, METHOD, STANDARD_OBJECT,
     286                               CLASS_T);
    153287        STANDARD_OBJECT.setDirectSuperclass(CLASS_T);
     288        STANDARD_OBJECT.setCPL(STANDARD_OBJECT, CLASS_T);
     289        STORAGE_CONDITION.setDirectSuperclass(SERIOUS_CONDITION);
     290        STORAGE_CONDITION.setCPL(STORAGE_CONDITION, SERIOUS_CONDITION, CONDITION,
     291                                 CLASS_T);
    154292        STREAM.setDirectSuperclass(CLASS_T);
     293        STREAM.setCPL(STREAM, CLASS_T);
    155294        STREAM_ERROR.setDirectSuperclass(ERROR);
     295        STREAM_ERROR.setCPL(STREAM_ERROR, ERROR, SERIOUS_CONDITION, CONDITION,
     296                            CLASS_T);
    156297        STRING.setDirectSuperclass(VECTOR);
     298        STRING.setCPL(STRING, VECTOR, ARRAY, SEQUENCE, CLASS_T);
    157299        STRING_STREAM.setDirectSuperclass(STREAM);
     300        STRING_STREAM.setCPL(STRING_STREAM, STREAM, CLASS_T);
    158301        STRUCTURE_CLASS.setDirectSuperclass(CLASS);
     302        STRUCTURE_CLASS.setCPL(STRUCTURE_CLASS, CLASS, STANDARD_OBJECT,
     303                               CLASS_T);
    159304        STRUCTURE_OBJECT.setDirectSuperclass(CLASS_T);
     305        STRUCTURE_OBJECT.setCPL(STRUCTURE_OBJECT, CLASS_T);
     306        STYLE_WARNING.setDirectSuperclass(WARNING);
     307        STYLE_WARNING.setCPL(STYLE_WARNING, WARNING, CONDITION, CLASS_T);
    160308        SYMBOL.setDirectSuperclass(CLASS_T);
     309        SYMBOL.setCPL(SYMBOL, CLASS_T);
     310        SYNONYM_STREAM.setDirectSuperclass(STREAM);
     311        SYNONYM_STREAM.setCPL(SYNONYM_STREAM, STREAM, CLASS_T);
    161312        TWO_WAY_STREAM.setDirectSuperclass(STREAM);
     313        TWO_WAY_STREAM.setCPL(TWO_WAY_STREAM, STREAM, CLASS_T);
    162314        TYPE_ERROR.setDirectSuperclass(ERROR);
     315        TYPE_ERROR.setCPL(TYPE_ERROR, ERROR, SERIOUS_CONDITION, CONDITION,
     316                          CLASS_T);
    163317        UNBOUND_SLOT.setDirectSuperclass(CELL_ERROR);
     318        UNBOUND_SLOT.setCPL(UNBOUND_SLOT, CELL_ERROR, ERROR, SERIOUS_CONDITION,
     319                            CONDITION, CLASS_T);
    164320        UNBOUND_VARIABLE.setDirectSuperclass(CELL_ERROR);
     321        UNBOUND_VARIABLE.setCPL(UNBOUND_VARIABLE, CELL_ERROR, ERROR,
     322                                SERIOUS_CONDITION, CONDITION, CLASS_T);
    165323        UNDEFINED_FUNCTION.setDirectSuperclass(CELL_ERROR);
     324        UNDEFINED_FUNCTION.setCPL(UNDEFINED_FUNCTION, CELL_ERROR, ERROR,
     325                                  SERIOUS_CONDITION, CONDITION, CLASS_T);
    166326        VECTOR.setDirectSuperclasses(list2(ARRAY, SEQUENCE));
     327        VECTOR.setCPL(VECTOR, ARRAY, SEQUENCE, CLASS_T);
     328        WARNING.setDirectSuperclass(CONDITION);
     329        WARNING.setCPL(WARNING, CONDITION, CLASS_T);
    167330    }
    168331}
Note: See TracChangeset for help on using the changeset viewer.