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

:external-format :pass-through did not implement actual pass-through in Unicode builds.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2011-06-28 19:32:01 +02:00
parent d21d141cd9
commit 0a7e582beb
1 changed files with 4 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/c/file.d
View file

@ -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') {