Changeset 12316

Timestamp:

01/01/10 10:30:16 (14 years ago)

Author:

ehuelsmann

Message:

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

File:

• trunk/abcl/src/org/armedbear/lisp/stream_external_format.java (modified) (1 diff)

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

@@ -48 +48 @@
     {
         if (arg instanceof Stream)
-            return Keyword.DEFAULT;
+            return ((Stream)arg).getExternalFormat();
         else
             return error(new TypeError(arg, Symbol.STREAM));