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

WRITE-LINE did not work with Gray streams.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2008-12-07 13:54:17 +01:00
parent 44a1cff9b5
commit e57c1ac85a
2 changed files with 10 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/CHANGELOG
View file

@ -198,6 +198,8 @@ ECL 8.9.0:
- Hash tables were not properly serialized.
- WRITE-LINE did not work with gray streams (A. Vodonosov)
;;; Local Variables: ***
;;; mode:text ***
;;; fill-column:79 ***

11
src/c/print.d
View file

@ -1892,9 +1892,14 @@ potential_number_p(cl_object strng, int base)
@
strng = ecl_check_type_string(@'write-line', strng);
strm = stream_or_default_output(strm);
si_do_write_sequence(strng, strm, start, end);
ecl_write_char('\n', strm);
ecl_force_output(strm);
#ifdef ECL_CLOS_STREAMS
if (type_of(strm) != t_stream)
funcall(5, @'gray::stream-write-string', strm, strng,
start, end);
else
#endif
si_do_write_sequence(strng, strm, start, end);
ecl_terpri(strm);
@(return strng)
@)