Changeset 8655


Ignore:
Timestamp:
02/28/05 00:56:26 (16 years ago)
Author:
piso
Message:

BuiltInClass?.ENVIRONMENT

File:
1 edited

Legend:

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

    r8147 r8655  
    22 * BuiltInClass.java
    33 *
    4  * Copyright (C) 2003-2004 Peter Graves
    5  * $Id: BuiltInClass.java,v 1.35 2004-11-08 18:26:28 piso Exp $
     4 * Copyright (C) 2003-2005 Peter Graves
     5 * $Id: BuiltInClass.java,v 1.36 2005-02-28 00:56:26 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    8585    public static final BuiltInClass ECHO_STREAM                      = addClass(Symbol.ECHO_STREAM);
    8686    public static final BuiltInClass END_OF_FILE                      = addClass(Symbol.END_OF_FILE);
     87    public static final BuiltInClass ENVIRONMENT                      = addClass(Symbol.ENVIRONMENT);
    8788    public static final BuiltInClass FILE_STREAM                      = addClass(Symbol.FILE_STREAM);
    8889    public static final BuiltInClass FIXNUM                           = addClass(Symbol.FIXNUM);
     
    321322        END_OF_FILE.setCPL(END_OF_FILE, STREAM_ERROR, ERROR, SERIOUS_CONDITION,
    322323                           CONDITION, STANDARD_OBJECT, CLASS_T);
     324        ENVIRONMENT.setDirectSuperclass(CLASS_T);
     325        ENVIRONMENT.setCPL(ENVIRONMENT, CLASS_T);
    323326        ERROR.setCPL(ERROR, SERIOUS_CONDITION, CONDITION, STANDARD_OBJECT,
    324327                     CLASS_T);
Note: See TracChangeset for help on using the changeset viewer.