From 7a1cb72234154de49859ea7e0dcd2af64cc23203 Mon Sep 17 00:00:00 2001
From: Juan Jose Garcia Ripoll <jjgarcia@jjgr-2.local>
Date: Tue, 21 Jul 2009 22:21:07 +0200
Subject: [PATCH] The MSVC builds without unicode can not use external formats.

---
 src/c/file.d | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/src/c/file.d b/src/c/file.d
index 5091c2111..d1318081a 100644
--- a/src/c/file.d
+++ b/src/c/file.d
@@ -4910,9 +4910,13 @@ init_file(void)
 	cl_object null_stream;
 	cl_object external_format = Cnil;
 #if defined(_MSC_VER) || defined(mingw32)
-	external_format = cl_list(2, @':us-ascii', @':crlf');
+# ifdef ECL_UNICODE
 	external_format = cl_list(2, @':latin-1', @':crlf');
 	flags = 0;
+# else
+	external_format = @':crlf';
+	flags = ECL_STREAM_DEFAULT_FORMAT;
+# endif
 #else
 	flags = ECL_STREAM_DEFAULT_FORMAT;
 #endif