[armedbear-cvs] r13093 - trunk/abcl/src/org/armedbear/lisp

[Erik Huelsmann]

Author: ehuelsmann
Date: Sun Dec 12 04:54:44 2010
New Revision: 13093

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

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

Modified: trunk/abcl/src/org/armedbear/lisp/JavaException.java
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/JavaException.java	(original)
+++ trunk/abcl/src/org/armedbear/lisp/JavaException.java	Sun Dec 12 04:54:44 2010
@@ -49,6 +49,8 @@
         Debug.assertTrue(throwable != null);
         this.throwable = throwable;
         setInstanceSlotValue(Symbol.CAUSE, new JavaObject(throwable));
+        setFormatControl("Java exception: ~A.");
+        setFormatArguments(new Cons(new JavaObject(throwable)));
     }
 
     @Override
@@ -87,7 +89,7 @@
     }
 
     // ### 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" +
 "  object that caused JAVA-EXCEPTION to be signalled.)")