mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-03-15 09:20:23 -07:00
Code Issues Projects Releases Packages Wiki Activity

Merge branch 'patch-1' into 'develop'

Browse source 
In `flisten` check that the stream is not in an error state, as well as not eof

See merge request !51
This commit is contained in:
Daniel Kochmański 2017-02-09 22:07:05 +00:00
commit acfde74880
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

@ -5314,7 +5314,7 @@ static int
flisten(cl_object stream, FILE *fp)
{
int aux;
if (feof(fp))
if (feof(fp) || ferror(fp))
return ECL_LISTEN_EOF;
#ifdef FILE_CNT
if (FILE_CNT(fp) > 0)