Changeset 13106 for trunk/abcl/src/org


Ignore:
Timestamp:
12/27/10 22:10:34 (11 years ago)
Author:
ehuelsmann
Message:

Make Interpreter.UnhandledCondition? print its message formatted, instead of
the rather uninformative #<[class-name here] {@...}>.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/Interpreter.java

    r13098 r13106  
    485485        public String getMessage() {
    486486            String conditionText;
     487            LispThread thread = LispThread.currentThread();
     488            SpecialBindingsMark mark = thread.markSpecialBindings();
     489            thread.bindSpecial(Symbol.PRINT_ESCAPE, NIL);
    487490            try {
    488491                conditionText = getCondition().writeToString();
    489492            } catch (Throwable t) {
    490493                conditionText = "<error printing Lisp condition>";
     494            } finally {
     495                thread.resetSpecialBindings(mark);
    491496            }
    492497
Note: See TracChangeset for help on using the changeset viewer.