Changeset 12320


Ignore:
Timestamp:
01/01/10 15:38:33 (14 years ago)
Author:
ehuelsmann
Message:

Print StreamErrors? with a readable text,

even when created based on a Throwable.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/StreamError.java

    r12288 r12320  
    106106        super(StandardClass.STREAM_ERROR);
    107107        setStream(stream != null ? stream : NIL);
     108        setFormatControl(cause.getMessage());
     109        setFormatArguments(NIL);
    108110        this.cause = cause;
    109111    }
     
    159161        public LispObject execute(LispObject arg)
    160162        {
    161             if (arg instanceof StreamError) 
    162                 return ((StreamError)arg).getStream();               
     163            if (arg instanceof StreamError)
     164                return ((StreamError)arg).getStream();
    163165            return error(new TypeError(arg, Symbol.STREAM_ERROR));
    164166        }
Note: See TracChangeset for help on using the changeset viewer.