From a85aa2fa1c937b366aa38b42b153ce2f3808b7ac Mon Sep 17 00:00:00 2001 From: Juanjo Garcia-Ripoll Date: Wed, 30 May 2012 16:18:49 +0200 Subject: [PATCH] Recursively process the output of MAKE-ENCODING --- src/c/file.d | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/src/c/file.d b/src/c/file.d index 22e0e9f18..8e67d5a7d 100644 --- a/src/c/file.d +++ b/src/c/file.d @@ -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);