mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-04-27 11:40:45 -07:00
Code Issues Projects Releases Packages Wiki Activity

file.d: fix invalid predicate call

Browse source
This commit is contained in:
Daniel Kochmański 2017-02-23 20:19:46 +01:00
parent 307d6b5c2d
commit a9eb112a99
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

@ -1626,7 +1626,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(strng) == t_base_string) {
if (ECL_BASE_STRING_P(strng)) {
strm->stream.format = @':latin-1';
strm->stream.flags = ECL_STREAM_LATIN_1;
strm->stream.byte_size = 8;