Changeset 12320
- Timestamp:
- 01/01/10 15:38:33 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/src/org/armedbear/lisp/StreamError.java
r12288 r12320 106 106 super(StandardClass.STREAM_ERROR); 107 107 setStream(stream != null ? stream : NIL); 108 setFormatControl(cause.getMessage()); 109 setFormatArguments(NIL); 108 110 this.cause = cause; 109 111 } … … 159 161 public LispObject execute(LispObject arg) 160 162 { 161 if (arg instanceof StreamError) 162 return ((StreamError)arg).getStream(); 163 if (arg instanceof StreamError) 164 return ((StreamError)arg).getStream(); 163 165 return error(new TypeError(arg, Symbol.STREAM_ERROR)); 164 166 }
Note: See TracChangeset
for help on using the changeset viewer.