Changeset 10332


Ignore:
Timestamp:
11/03/05 16:59:56 (16 years ago)
Author:
piso
Message:

writeToString(): call PRINT-OBJECT for objects of type CONDITION.

File:
1 edited

Legend:

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

    r10210 r10332  
    33 *
    44 * Copyright (C) 2003-2005 Peter Graves
    5  * $Id: StandardObject.java,v 1.49 2005-10-23 18:44:50 piso Exp $
     5 * $Id: StandardObject.java,v 1.50 2005-11-03 16:59:56 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    134134        if (currentLevel >= maxLevel)
    135135            return "#";
     136        if (typep(Symbol.CONDITION) != NIL) {
     137            StringOutputStream stream = new StringOutputStream();
     138            Symbol.PRINT_OBJECT.execute(this, stream);
     139            return stream.getString().getStringValue();
     140        }
    136141        return unreadableString(typeOf().writeToString());
    137142    }
Note: See TracChangeset for help on using the changeset viewer.