mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-15 05:43:19 -08:00
Code Issues Projects Releases Packages Wiki Activity

Fixed typo.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-03-01 10:52:39 +01:00
parent dfe4e74738
commit aa7f628a75
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/c/file.d
View file

@ -1633,7 +1633,7 @@ ecl_make_string_input_stream(cl_object strng, cl_index istart, cl_index iend)
strm->stream.flags = ECL_STREAM_DEFAULT_FORMAT;
strm->stream.byte_size = 8;
#else
if (ECL_BASE_STRING_P(string) == t_base_string) {
if (ECL_BASE_STRING_P(strng) == t_base_string) {
strm->stream.format = @':latin-1';
strm->stream.flags = ECL_STREAM_LATIN_1;
strm->stream.byte_size = 8;