Changeset 12821

Timestamp:

07/22/10 18:34:09 (13 years ago)

Author:

ehuelsmann

Message:

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

File:

• branches/0.21.x/abcl/src/org/armedbear/lisp/Condition.java (modified) (2 diffs)

branches/0.21.x/abcl/src/org/armedbear/lisp/Condition.java

@@ -105 +105 @@
   public final LispObject getFormatControl()
   {
-    return getInstanceSlotValue(Symbol.FORMAT_CONTROL);
+      return getInstanceSlotValue(Symbol.FORMAT_CONTROL);
   }
 
@@ -136 +136 @@
   public String getMessage()
   {
-    return getFormatControl().toString();
+      LispObject formatControl = getFormatControl();
+      return formatControl != UNBOUND_VALUE ? formatControl.writeToString() : null;
   }