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

encoding: typo

Browse source
This commit is contained in:
Daniel Kochmański 2017-02-16 21:31:51 +01:00
parent 1b90599696
commit 091d53626b
2 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/c/file.d
View file

@ -3075,7 +3075,7 @@ parse_external_format(cl_object stream, cl_object format, int flags)
return (flags & ~ECL_STREAM_FORMAT) | ECL_STREAM_USER_FORMAT;
}
if (ECL_SYMBOLP(format)) {
format = _ecl_funcall2(@'ext::make-encoding', mapping);
format = _ecl_funcall2(@'ext::make-encoding', format);
if (ECL_SYMBOLP(format))
goto PARSE_SYMBOLS;
stream->stream.format_table = format;

2
src/c/symbols_list2.h
View file

@ -1893,7 +1893,7 @@ cl_symbols[] = {
{KEY_ "UCS-4LE",NULL},
{EXT_ "LOAD-ENCODING","ECL_NAME(si_load_encoding)"},
{EXT_ "MAKE-ENCODING",NULL},
{EXT_ "MAKE-ENCODING","ECL_NAME(si_load_encoding)"},
{EXT_ "ALL-ENCODINGS",NULL},
{KEY_ "US-ASCII",NULL},