mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-12 20:31:55 -08:00
Code Issues Projects Releases Packages Wiki Activity

The MSVC builds without unicode can not use external formats.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-07-21 22:21:07 +02:00
parent d9d787f84d
commit 7a1cb72234
1 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/c/file.d
View file

@ -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