From 252c7f35107dba807e5ebf68ee56bb6c68f6dbcb Mon Sep 17 00:00:00 2001
From: mgoffioul <mgoffioul>
Date: Thu, 22 Jun 2006 09:38:39 +0000
Subject: [PATCH] ecl_listen_stream() now returns the correct value when
 applied on a CLOS stream.

---
 src/CHANGELOG | 3 +++
 src/c/file.d  | 2 +-
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/CHANGELOG b/src/CHANGELOG
index 666d87cad..b97f1b753 100644
--- a/src/CHANGELOG
+++ b/src/CHANGELOG
@@ -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.
diff --git a/src/c/file.d b/src/c/file.d
index 7e4e34449..18ad2aafd 100644
--- a/src/c/file.d
+++ b/src/c/file.d
@@ -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)