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

ecl_listen_stream() now returns the correct value when applied on a CLOS stream.

Browse source
This commit is contained in:
mgoffioul 2006-06-22 09:38:39 +00:00
parent 9f4101bda4
commit 252c7f3510
2 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/CHANGELOG
View file

@ -262,6 +262,9 @@ ECL 0.9i
Top level.
>>
- ecl_listen_stream (used in LISTEN or READ-CHAR-NO-HANG) now returns the
correct value when applied on a CLOS stream (M. Goffioul)
* Documentation:
- The HTML manuals now use CSS for a more appealing look.

2
src/c/file.d
View file

@ -1905,7 +1905,7 @@ BEGIN:
#ifdef ECL_CLOS_STREAMS
if (type_of(strm) == t_instance) {
cl_object flag = funcall(2, @'ext::stream-listen', strm);
return !(strm == Cnil);
return !(flag == Cnil);
}
#endif
if (type_of(strm) != t_stream)