Changeset 5076


Ignore:
Timestamp:
12/11/03 20:40:34 (18 years ago)
Author:
piso
Message:

FILE-ERROR, PARSE-ERROR, STREAM-ERROR, READER-ERROR

File:
1 edited

Legend:

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

    r5073 r5076  
    33 *
    44 * Copyright (C) 2003 Peter Graves
    5  * $Id: BuiltInClass.java,v 1.17 2003-12-11 20:18:18 piso Exp $
     5 * $Id: BuiltInClass.java,v 1.18 2003-12-11 20:40:34 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    7878    public static final BuiltInClass ECHO_STREAM                      = addClass(Symbol.ECHO_STREAM);
    7979    public static final BuiltInClass END_OF_FILE                      = addClass(Symbol.END_OF_FILE);
    80     public static final BuiltInClass FILE_ERROR                       = addClass(Symbol.FILE_ERROR);
    8180    public static final BuiltInClass FILE_STREAM                      = addClass(Symbol.FILE_STREAM);
    8281    public static final BuiltInClass FIXNUM                           = addClass(Symbol.FIXNUM);
     
    9594    public static final BuiltInClass NUMBER                           = addClass(Symbol.NUMBER);
    9695    public static final BuiltInClass PACKAGE                          = addClass(Symbol.PACKAGE);
    97     public static final BuiltInClass PARSE_ERROR                      = addClass(Symbol.PARSE_ERROR);
    9896    public static final BuiltInClass PATHNAME                         = addClass(Symbol.PATHNAME);
    9997    public static final BuiltInClass PRINT_NOT_READABLE               = addClass(Symbol.PRINT_NOT_READABLE);
     
    10199    public static final BuiltInClass RATIO                            = addClass(Symbol.RATIO);
    102100    public static final BuiltInClass RATIONAL                         = addClass(Symbol.RATIONAL);
    103     public static final BuiltInClass READER_ERROR                     = addClass(Symbol.READER_ERROR);
    104101    public static final BuiltInClass READTABLE                        = addClass(Symbol.READTABLE);
    105102    public static final BuiltInClass REAL                             = addClass(Symbol.REAL);
     
    112109    public static final BuiltInClass STORAGE_CONDITION                = addClass(Symbol.STORAGE_CONDITION);
    113110    public static final BuiltInClass STREAM                           = addClass(Symbol.STREAM);
    114     public static final BuiltInClass STREAM_ERROR                     = addClass(Symbol.STREAM_ERROR);
    115111    public static final BuiltInClass STRING                           = addClass(Symbol.STRING);
    116112    public static final BuiltInClass STRING_STREAM                    = addClass(Symbol.STRING_STREAM);
     
    175171    }
    176172
     173    public static final StandardClass FILE_ERROR =
     174        new StandardClass(Symbol.FILE_ERROR, list1(ERROR));
     175    static {
     176        addClass(Symbol.FILE_ERROR, FILE_ERROR);
     177    }
     178
    177179    public static final StandardClass PACKAGE_ERROR =
    178180        new StandardClass(Symbol.PACKAGE_ERROR, list1(ERROR));
     
    181183    }
    182184
     185    public static final StandardClass PARSE_ERROR =
     186        new StandardClass(Symbol.PARSE_ERROR, list1(ERROR));
     187    static {
     188        addClass(Symbol.PARSE_ERROR, PARSE_ERROR);
     189    }
     190
    183191    public static final StandardClass PROGRAM_ERROR =
    184192        new StandardClass(Symbol.PROGRAM_ERROR, list1(ERROR));
     
    187195    }
    188196
     197    public static final StandardClass STREAM_ERROR =
     198        new StandardClass(Symbol.STREAM_ERROR, list1(ERROR));
     199    static {
     200        addClass(Symbol.STREAM_ERROR, STREAM_ERROR);
     201    }
     202
    189203    public static final StandardClass TYPE_ERROR =
    190204        new StandardClass(Symbol.TYPE_ERROR, list1(ERROR));
    191205    static {
    192206        addClass(Symbol.TYPE_ERROR, TYPE_ERROR);
     207    }
     208
     209    public static final StandardClass READER_ERROR =
     210        new StandardClass(Symbol.READER_ERROR, list2(PARSE_ERROR, STREAM_ERROR));
     211    static {
     212        addClass(Symbol.READER_ERROR, READER_ERROR);
    193213    }
    194214
     
    246266        FIXNUM.setDirectSuperclass(INTEGER);
    247267        FIXNUM.setCPL(FIXNUM, INTEGER, RATIONAL, REAL, NUMBER, CLASS_T);
    248         FILE_ERROR.setDirectSuperclass(ERROR);
    249268        FILE_ERROR.setCPL(FILE_ERROR, ERROR, SERIOUS_CONDITION, CONDITION,
    250                           CLASS_T);
     269                          STANDARD_OBJECT, CLASS_T);
    251270        FILE_STREAM.setDirectSuperclass(STREAM);
    252271        FILE_STREAM.setCPL(FILE_STREAM, STREAM, CLASS_T);
     
    294313        PACKAGE_ERROR.setCPL(PACKAGE_ERROR, ERROR, SERIOUS_CONDITION, CONDITION,
    295314                             STANDARD_OBJECT, CLASS_T);
    296         PARSE_ERROR.setDirectSuperclass(ERROR);
    297315        PARSE_ERROR.setCPL(PARSE_ERROR, ERROR, SERIOUS_CONDITION, CONDITION,
    298                            CLASS_T);
     316                           STANDARD_OBJECT, CLASS_T);
    299317        PATHNAME.setDirectSuperclass(CLASS_T);
    300318        PATHNAME.setCPL(PATHNAME, CLASS_T);
     
    310328        RATIONAL.setDirectSuperclass(REAL);
    311329        RATIONAL.setCPL(RATIONAL, REAL, NUMBER, CLASS_T);
    312         READER_ERROR.setDirectSuperclasses(list2(PARSE_ERROR, STREAM_ERROR));
    313         READER_ERROR.setCPL(READER_ERROR, PARSE_ERROR, STREAM_ERROR,ERROR,
    314                             SERIOUS_CONDITION, CONDITION, CLASS_T);
     330        READER_ERROR.setCPL(READER_ERROR, PARSE_ERROR, STREAM_ERROR, ERROR,
     331                            SERIOUS_CONDITION, CONDITION, STANDARD_OBJECT,
     332                            CLASS_T);
    315333        READTABLE.setDirectSuperclass(CLASS_T);
    316334        READTABLE.setCPL(READTABLE, CLASS_T);
     
    344362        STREAM.setDirectSuperclass(CLASS_T);
    345363        STREAM.setCPL(STREAM, CLASS_T);
    346         STREAM_ERROR.setDirectSuperclass(ERROR);
    347364        STREAM_ERROR.setCPL(STREAM_ERROR, ERROR, SERIOUS_CONDITION, CONDITION,
    348                             CLASS_T);
     365                            STANDARD_OBJECT, CLASS_T);
    349366        STRING.setDirectSuperclass(VECTOR);
    350367        STRING.setCPL(STRING, VECTOR, ARRAY, SEQUENCE, CLASS_T);
Note: See TracChangeset for help on using the changeset viewer.