Changeset 5188


Ignore:
Timestamp:
12/19/03 02:17:20 (17 years ago)
Author:
piso
Message:

toString(): added special-case code for restarts.

File:
1 edited

Legend:

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

    r5179 r5188  
    33 *
    44 * Copyright (C) 2003 Peter Graves
    5  * $Id: StructureObject.java,v 1.18 2003-12-18 18:03:23 piso Exp $
     5 * $Id: StructureObject.java,v 1.19 2003-12-19 02:17:20 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    6767    public String toString()
    6868    {
     69        // FIXME
     70        try {
     71            if (typep(Symbol.RESTART) != NIL) {
     72                Symbol PRINT_RESTART = PACKAGE_SYS.intern("PRINT-RESTART");
     73                LispObject fun = PRINT_RESTART.getSymbolFunction();
     74                StringOutputStream stream = new StringOutputStream();
     75                funcall2(fun, this, stream, LispThread.currentThread());
     76                return stream.getString().getValue();
     77            }
     78        }
     79        catch (Throwable t) {
     80            Debug.trace(t);
     81        }
    6982        StringBuffer sb = new StringBuffer("#S(");
    7083        sb.append(structureClass.getSymbol());
Note: See TracChangeset for help on using the changeset viewer.