[slime-cvs] CVS update: slime/swank.lisp

[Luke Gorrie]

Update of /project/slime/cvsroot/slime
In directory common-lisp.net:/tmp/cvs-serv10336

Modified Files:
	swank.lisp 
Log Message:
(open-streams): Call make-stream-interactive on the redirected io
streams.

Date: Sat Jul  3 17:20:36 2004
Author: lgorrie

Index: slime/swank.lisp
diff -u slime/swank.lisp:1.207 slime/swank.lisp:1.208
--- slime/swank.lisp:1.207	Wed Jun 30 14:06:38 2004
+++ slime/swank.lisp	Sat Jul  3 17:20:36 2004
@@ -340,6 +340,7 @@
       (multiple-value-bind (in out) (make-fn-streams input-fn output-fn)
         (let ((out (or dedicated-output out)))
           (let ((io (make-two-way-stream in out)))
+            (mapc #'make-stream-interactive (list in out io))
             (values dedicated-output in out io)))))))
 
 (defun make-output-function (connection)