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

Recursively process the output of MAKE-ENCODING

Browse source
This commit is contained in:
Juanjo Garcia-Ripoll 2012-05-30 16:18:49 +02:00
parent 69d36f73bd
commit a85aa2fa1c
1 changed files with 2 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/c/file.d
View file

@ -3063,9 +3063,8 @@ parse_external_format(cl_object stream, cl_object format, int flags)
return (flags & ~ECL_STREAM_FORMAT) | ECL_STREAM_USER_FORMAT;
}
if (SYMBOLP(format)) {
stream->stream.format_table = _ecl_funcall2(@'ext::make-encoding',
format);
return (flags & ~ECL_STREAM_FORMAT) | ECL_STREAM_USER_FORMAT;
format = _ecl_funcall2(@'ext::make-encoding', format);
return parse_external_format(stream, format, flags);
}
#endif
FEerror("Unknown or unsupported external format: ~A", 1, format);