[slime-cvs] CVS slime

[CVS User sboukarev]

Update of /project/slime/cvsroot/slime
In directory cl-net:/tmp/cvs-serv12750

Modified Files:
	ChangeLog swank.lisp 
Log Message:
(open-streams): do not create unnecessary output stream
when using dedicated output stream. Thanks to Terje Norderhaug.


--- /project/slime/cvsroot/slime/ChangeLog	2009/06/28 19:15:07	1.1798
+++ /project/slime/cvsroot/slime/ChangeLog	2009/06/29 04:24:51	1.1799
@@ -1,3 +1,8 @@
+2009-06-29  Stas Boukarev  <stassats at gmail.com>
+
+	* swank.lisp (open-streams): do not create unnecessary output stream
+	when using dedicated output stream. Thanks to Terje Norderhaug.
+
 2009-06-28  Terje Norderhaug <terje at in-progress.com>
 
 	Generalize list-threads for implementation-dependent attributes.
--- /project/slime/cvsroot/slime/swank.lisp	2009/06/28 19:15:08	1.651
+++ /project/slime/cvsroot/slime/swank.lisp	2009/06/29 04:24:51	1.652
@@ -895,8 +895,7 @@
 (defun open-streams (connection)
   "Return the 5 streams for IO redirection:
 DEDICATED-OUTPUT INPUT OUTPUT IO REPL-RESULTS"
-  (let* ((output-fn (make-output-function connection))
-         (input-fn
+  (let* ((input-fn
           (lambda () 
             (with-connection (connection)
               (with-simple-restart (abort-read
@@ -905,9 +904,9 @@
          (dedicated-output (if *use-dedicated-output-stream*
                                (open-dedicated-output-stream
                                 (connection.socket-io connection))))
-         (out (make-output-stream output-fn))
          (in (make-input-stream input-fn))
-         (out (or dedicated-output out))
+         (out (or dedicated-output
+                  (make-output-stream (make-output-function connection))))
          (io (make-two-way-stream in out))
          (repl-results (make-output-stream-for-target connection
                                                       :repl-result)))