X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-simple-streams%2Fimpl.lisp;h=35c316ac1ee7e07f38c971f7f7b1a00d6267e34c;hb=4ed3f0d08c3a57a6762018d9622f253ab9d0f2b6;hp=f85edeb0f12d2c038bec5d5b7acbb2034a248f3d;hpb=cc9a73604f696b6e69842a95b1e11f40f8cdd7bf;p=sbcl.git

diff --git a/contrib/sb-simple-streams/impl.lisp b/contrib/sb-simple-streams/impl.lisp
index f85edeb..35c316a 100644
--- a/contrib/sb-simple-streams/impl.lisp
+++ b/contrib/sb-simple-streams/impl.lisp
@@ -292,7 +292,8 @@
     (if (not (or (eql width 1) (null width)))
 	(funcall-stm-handler j-listen (sm melded-stream stream))
 	(or (< (sm buffpos stream) (sm buffer-ptr stream))
-	    (when (>= (sm mode stream) 0) ;; device-connected @@ single-channel
+	    (when (or (not (any-stream-instance-flags stream :dual :string))
+                      (>= (sm mode stream) 0)) ;; device-connected @@ single-channel
 	      (let ((lcrs (sm last-char-read-size stream)))
 		(unwind-protect
 		     (progn