mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-02 07:30:55 -08:00
Code Issues Projects Releases Packages Wiki Activity

Fixed PEEK-CHAR for concatenated streams (M.Goffioul)

Browse source
This commit is contained in:
jjgarcia 2004-12-06 10:24:43 +00:00
parent 51707cf320
commit bb95034589
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

@ -702,7 +702,7 @@ BEGIN:
cl_object strmi = strm->stream.object0;
c = EOF;
while (!endp(strmi)) {
c = ecl_getc(CAR(strmi));
c = ecl_peek_char(CAR(strmi));
if (c != EOF)
break;
strm->stream.object0 = strmi = CDR(strmi);