Changeset 13093 for trunk/abcl/src/org


Ignore:
Timestamp:
12/12/10 09:54:44 (11 years ago)
Author:
ehuelsmann
Message:

Change JAVA-EXCEPTION-CAUSE to protected.
Set format control and arguments.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/JavaException.java

    r12288 r13093  
    5050        this.throwable = throwable;
    5151        setInstanceSlotValue(Symbol.CAUSE, new JavaObject(throwable));
     52        setFormatControl("Java exception: ~A.");
     53        setFormatArguments(new Cons(new JavaObject(throwable)));
    5254    }
    5355
     
    8890
    8991    // ### java-exception-cause java-exception => cause
    90     private static final Primitive JAVA_EXCEPTION_CAUSE =
     92    protected static final Primitive JAVA_EXCEPTION_CAUSE =
    9193        new Primitive(Symbol.JAVA_EXCEPTION_CAUSE, "java-exception",
    9294"Returns the cause of JAVA-EXCEPTION. (The cause is the Java Throwable\n" +
Note: See TracChangeset for help on using the changeset viewer.