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

[Erik Huelsmann]

Author: ehuelsmann
Date: Sat Dec 11 18:19:21 2010
New Revision: 13091

Log:
Override UnhandledCondition's getMessage() function to report
the original text.

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

Modified: trunk/abcl/src/org/armedbear/lisp/Interpreter.java
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/Interpreter.java	(original)
+++ trunk/abcl/src/org/armedbear/lisp/Interpreter.java	Sat Dec 11 18:19:21 2010
@@ -471,6 +471,20 @@
         public LispObject getCondition() {
             return condition;
         }
+
+        @Override
+        public String getMessage() {
+            String conditionText;
+            try {
+                conditionText = getCondition().writeToString();
+            } catch (Throwable t) {
+                conditionText = "<error printing Lisp condition>";
+            }
+
+            return "Unhandled lisp condition: " + conditionText;
+        }
+
+
     };
 
     private static final Primitive _DEBUGGER_HOOK_FUNCTION =