[armedbear-cvs] r12316 - trunk/abcl/src/org/armedbear/lisp

[Erik Huelsmann]

Author: ehuelsmann
Date: Fri Jan  1 05:30:16 2010
New Revision: 12316

Log:
Return the actual external format, instead of a default value
from STREAM-EXTERNAL-FORMAT.

Modified:
   trunk/abcl/src/org/armedbear/lisp/stream_external_format.java

Modified: trunk/abcl/src/org/armedbear/lisp/stream_external_format.java
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/stream_external_format.java	(original)
+++ trunk/abcl/src/org/armedbear/lisp/stream_external_format.java	Fri Jan  1 05:30:16 2010
@@ -47,7 +47,7 @@
     public LispObject execute(LispObject arg)
     {
         if (arg instanceof Stream)
-            return Keyword.DEFAULT;
+            return ((Stream)arg).getExternalFormat();
         else
             return error(new TypeError(arg, Symbol.STREAM));
     }