Changeset 12821


Ignore:
Timestamp:
07/22/10 18:34:09 (12 years ago)
Author:
ehuelsmann
Message:

Backport r12815 (printing of conditions with unbound format-control).

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/0.21.x/abcl/src/org/armedbear/lisp/Condition.java

    r12576 r12821  
    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.