Changeset 12815


Ignore:
Timestamp:
07/20/10 21:04:41 (12 years ago)
Author:
astalla
Message:

Fixed printing of certain conditions (e.g., type-errors) with unbound format-control.

File:
1 edited

Legend:

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

    r12576 r12815  
    105105  public final LispObject getFormatControl()
    106106  {
    107     return getInstanceSlotValue(Symbol.FORMAT_CONTROL);
     107      return getInstanceSlotValue(Symbol.FORMAT_CONTROL);
    108108  }
    109109
     
    136136  public String getMessage()
    137137  {
    138     return getFormatControl().toString();
     138      LispObject formatControl = getFormatControl();
     139      return formatControl != UNBOUND_VALUE ? formatControl.writeToString() : null;
    139140  }
    140141
Note: See TracChangeset for help on using the changeset viewer.