Changeset 10262


Ignore:
Timestamp:
10/28/05 16:38:09 (16 years ago)
Author:
piso
Message:

StandardClass?.JAVA_EXCEPTION

File:
1 edited

Legend:

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

    r9666 r10262  
    33 *
    44 * Copyright (C) 2003-2005 Peter Graves
    5  * $Id: StandardClass.java,v 1.38 2005-07-16 14:44:03 piso Exp $
     5 * $Id: StandardClass.java,v 1.39 2005-10-28 16:38:09 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    5656    public String writeToString() throws ConditionThrowable
    5757    {
    58         StringBuffer sb = new StringBuffer(Symbol.STANDARD_CLASS.writeToString());
     58        FastStringBuffer sb =
     59            new FastStringBuffer(Symbol.STANDARD_CLASS.writeToString());
    5960        if (symbol != null) {
    6061            sb.append(' ');
     
    188189    public static final StandardClass UNDEFINED_FUNCTION =
    189190        addStandardClass(Symbol.UNDEFINED_FUNCTION, list1(CELL_ERROR));
     191
     192    public static final StandardClass JAVA_EXCEPTION =
     193        addStandardClass(Symbol.JAVA_EXCEPTION, list1(ERROR));
    190194
    191195    public static final StandardClass METHOD =
     
    273277                                BuiltInClass.FUNCTION,
    274278                                BuiltInClass.CLASS_T);
     279        JAVA_EXCEPTION.setCPL(JAVA_EXCEPTION, ERROR, SERIOUS_CONDITION, CONDITION,
     280                              STANDARD_OBJECT, BuiltInClass.CLASS_T);
     281        JAVA_EXCEPTION.setDirectSlotDefinitions(
     282            list1(new SlotDefinition(Symbol.CAUSE, list1(Symbol.JAVA_EXCEPTION_CAUSE))));
    275283        METHOD.setCPL(METHOD, STANDARD_OBJECT, BuiltInClass.CLASS_T);
    276284        PACKAGE_ERROR.setCPL(PACKAGE_ERROR, ERROR, SERIOUS_CONDITION, CONDITION,
     
    353361        FLOATING_POINT_OVERFLOW.finalizeClassLayout();
    354362        FLOATING_POINT_UNDERFLOW.finalizeClassLayout();
     363        JAVA_EXCEPTION.finalizeClassLayout();
    355364        PACKAGE_ERROR.finalizeClassLayout();
    356365        PARSE_ERROR.finalizeClassLayout();
Note: See TracChangeset for help on using the changeset viewer.