From 0a7e582beb7634f8a42801e7ec5e16cb12755d3b Mon Sep 17 00:00:00 2001
From: Juan Jose Garcia Ripoll <jjgarcia@users.sourceforge.net>
Date: Tue, 28 Jun 2011 19:32:01 +0200
Subject: [PATCH] :external-format :pass-through did not implement actual
 pass-through in Unicode builds.

---
 src/c/file.d | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/src/c/file.d b/src/c/file.d
index 7d5c04e66..0fcbd8bda 100755
--- a/src/c/file.d
+++ b/src/c/file.d
@@ -2920,7 +2920,11 @@ parse_external_format(cl_object stream, cl_object format, int flags)
 		return flags & ~ECL_STREAM_LITTLE_ENDIAN;
 	}
 	if (format == @':pass-through' || format == Ct) {
+#ifdef ECL_UNICODE
+		return (flags & ~ECL_STREAM_FORMAT) | ECL_STREAM_LATIN_1;
+#else
 		return (flags & ~ECL_STREAM_FORMAT) | ECL_STREAM_DEFAULT_FORMAT;
+#endif
 	}
 #ifdef ECL_UNICODE
 	if (format == @':UTF-8') {