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

When working with Gray streams, READ-LINE did not handle the EOF properly.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2008-12-08 19:32:50 +01:00
parent 2f4aa7aa96
commit a3fdf8f7da
2 changed files with 9 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/CHANGELOG
View file

@ -200,6 +200,8 @@ ECL 8.9.0:
- WRITE-LINE did not work with gray streams (A. Vodonosov)
- When working with Gray streams, READ-LINE did not handle the EOF properly.
;;; Local Variables: ***
;;; mode:text ***
;;; fill-column:79 ***

8
src/c/read.d
View file

@ -1522,7 +1522,13 @@ do_read_delimited_list(int d, cl_object in, bool proper_list)
strm = stream_or_default_input(strm);
#ifdef ECL_CLOS_STREAMS
if (type_of(strm) != t_stream) {
return funcall(2, @'gray::stream-read-line', strm);
cl_object out = funcall(2, @'gray::stream-read-line', strm);
if (!Null(VALUES(1))) {
if (!Null(eof_errorp))
FEend_of_file(strm);
out = eof_value;
}
return out;
}
#endif
token = si_get_buffer_string();