Changeset 13093 for trunk/abcl/src/org/armedbear
- Timestamp:
- 12/12/10 09:54:44 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/src/org/armedbear/lisp/JavaException.java
r12288 r13093 50 50 this.throwable = throwable; 51 51 setInstanceSlotValue(Symbol.CAUSE, new JavaObject(throwable)); 52 setFormatControl("Java exception: ~A."); 53 setFormatArguments(new Cons(new JavaObject(throwable))); 52 54 } 53 55 … … 88 90 89 91 // ### java-exception-cause java-exception => cause 90 pr ivatestatic final Primitive JAVA_EXCEPTION_CAUSE =92 protected static final Primitive JAVA_EXCEPTION_CAUSE = 91 93 new Primitive(Symbol.JAVA_EXCEPTION_CAUSE, "java-exception", 92 94 "Returns the cause of JAVA-EXCEPTION. (The cause is the Java Throwable\n" +
Note: See TracChangeset
for help on using the changeset viewer.