Changeset 13091

Timestamp:

12/11/10 23:19:21 (11 years ago)

Author:

ehuelsmann

Message:

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

File:

• trunk/abcl/src/org/armedbear/lisp/Interpreter.java (modified) (1 diff)

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

@@ -472 +472 @@
             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;
+        }
+
+
     };