Changeset 13093 for trunk/abcl/src/org/armedbear

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:

• trunk/abcl/src/org/armedbear/lisp/JavaException.java (modified) (2 diffs)

trunk/abcl/src/org/armedbear/lisp/JavaException.java

@@ -50 +50 @@
         this.throwable = throwable;
         setInstanceSlotValue(Symbol.CAUSE, new JavaObject(throwable));
+        setFormatControl("Java exception: ~A.");
+        setFormatArguments(new Cons(new JavaObject(throwable)));
     }
 
@@ -88 +90 @@
 
     // ### java-exception-cause java-exception => cause
-    private static final Primitive JAVA_EXCEPTION_CAUSE =
+    protected static final Primitive JAVA_EXCEPTION_CAUSE =
         new Primitive(Symbol.JAVA_EXCEPTION_CAUSE, "java-exception",
 "Returns the cause of JAVA-EXCEPTION. (The cause is the Java Throwable\n" +