Changeset 12320

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:

• trunk/abcl/src/org/armedbear/lisp/StreamError.java (modified) (2 diffs)

trunk/abcl/src/org/armedbear/lisp/StreamError.java

@@ -106 +106 @@
         super(StandardClass.STREAM_ERROR);
         setStream(stream != null ? stream : NIL);
+        setFormatControl(cause.getMessage());
+        setFormatArguments(NIL);
         this.cause = cause;
     }
@@ -159 +161 @@
         public LispObject execute(LispObject arg)
         {
-            if (arg instanceof StreamError) 
-                return ((StreamError)arg).getStream();                
+            if (arg instanceof StreamError)
+                return ((StreamError)arg).getStream();
             return error(new TypeError(arg, Symbol.STREAM_ERROR));
         }