[slime-cvs] CVS slime

[CVS User heller]

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

Modified Files:
	swank.lisp 
Log Message:
*** empty log message ***

--- /project/slime/cvsroot/slime/swank.lisp	2008/12/24 08:14:06	1.615
+++ /project/slime/cvsroot/slime/swank.lisp	2008/12/24 08:14:12	1.616
@@ -1492,12 +1492,12 @@
     (with-struct* (connection. @ conn)
       (setf (@ env)
             `((*standard-output* . ,(@ user-output))
-              (*standard-input* . ,(@ user-input))
-              (*trace-output* . ,(or (@ trace-output) (@ user-output)))
-              (*error-output* . ,(@ user-output))
-              (*debug-io* . ,(@ user-io))
-              (*query-io* . ,(@ user-io))
-              (*terminal-io* . ,(@ user-io))))
+              (*standard-input*  . ,(@ user-input))
+              (*trace-output*    . ,(or (@ trace-output) (@ user-output)))
+              (*error-output*    . ,(@ user-output))
+              (*debug-io*        . ,(@ user-io))
+              (*query-io*        . ,(@ user-io))
+              (*terminal-io*     . ,(@ user-io))))
       (when (eq (@ communication-style) :spawn)
         (setf (@ repl-thread) (spawn-repl-thread conn "repl-thread")))
       t)))