Changeset 5086


Ignore:
Timestamp:
12/12/03 13:40:55 (17 years ago)
Author:
piso
Message:

STRUCTURE-OBJECT

File:
1 edited

Legend:

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

    r5077 r5086  
    33 *
    44 * Copyright (C) 2003 Peter Graves
    5  * $Id: BuiltInClass.java,v 1.19 2003-12-11 21:06:34 piso Exp $
     5 * $Id: BuiltInClass.java,v 1.20 2003-12-12 13:40:55 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    112112    public static final BuiltInClass STRING_STREAM                    = addClass(Symbol.STRING_STREAM);
    113113    public static final BuiltInClass STRUCTURE_CLASS                  = addClass(Symbol.STRUCTURE_CLASS);
    114     public static final BuiltInClass STRUCTURE_OBJECT                 = addClass(Symbol.STRUCTURE_OBJECT);
    115114    public static final BuiltInClass STYLE_WARNING                    = addClass(Symbol.STYLE_WARNING);
    116115    public static final BuiltInClass SYMBOL                           = addClass(Symbol.SYMBOL);
     
    118117    public static final BuiltInClass TWO_WAY_STREAM                   = addClass(Symbol.TWO_WAY_STREAM);
    119118    public static final BuiltInClass VECTOR                           = addClass(Symbol.VECTOR);
     119
     120    public static final StructureClass STRUCTURE_OBJECT =
     121        new StructureClass(Symbol.STRUCTURE_OBJECT, list1(CLASS_T));
     122    static {
     123        addClass(Symbol.STRUCTURE_OBJECT, STRUCTURE_OBJECT);
     124    }
    120125
    121126    public static final StandardClass STANDARD_CLASS =
     
    391396        STRUCTURE_CLASS.setCPL(STRUCTURE_CLASS, CLASS, STANDARD_OBJECT,
    392397                               CLASS_T);
    393         STRUCTURE_OBJECT.setDirectSuperclass(CLASS_T);
    394398        STRUCTURE_OBJECT.setCPL(STRUCTURE_OBJECT, CLASS_T);
    395399        STYLE_WARNING.setDirectSuperclass(WARNING);
Note: See TracChangeset for help on using the changeset viewer.