Changeset 5105


Ignore:
Timestamp:
12/12/03 17:30:52 (18 years ago)
Author:
piso
Message:

toString()

File:
1 edited

Legend:

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

    r5098 r5105  
    33 *
    44 * Copyright (C) 2003 Peter Graves
    5  * $Id: Condition.java,v 1.15 2003-12-12 16:16:29 piso Exp $
     5 * $Id: Condition.java,v 1.16 2003-12-12 17:30:52 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    2424public class Condition extends StandardObject
    2525{
    26     private LispObject formatControl;
    27     private LispObject formatArguments;
     26    private LispObject formatControl = NIL;
     27    private LispObject formatArguments = NIL;
    2828
    2929    private String message = null;
     
    116116    public String toString()
    117117    {
    118         String s = getMessage();
    119         if (s != null)
    120             return s;
     118        try {
     119            if (_PRINT_ESCAPE_.symbolValue() == NIL) {
     120                String s = getMessage();
     121                if (s != null)
     122                    return s;
     123                if (formatControl != NIL)
     124                    return format(formatControl, formatArguments);
     125            }
     126        }
     127        catch (Throwable t) {}
    121128        return unreadableString(String.valueOf(typeOf()));
    122129    }
Note: See TracChangeset for help on using the changeset viewer.