[slime-cvs] CVS slime

[CVS User heller]

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

Modified Files:
	ChangeLog swank.lisp 
Log Message:
* swank.lisp (maybe-redirect-global-io): Don't consider
connections without streams.
(*new-connection-hook*): Don't add MAYBE-REDIRECT-GLOBAL-IO.
(create-repl): Call MAYBE-REDIRECT-GLOBAL-IO here.

--- /project/slime/cvsroot/slime/ChangeLog	2008/12/31 11:25:30	1.1613
+++ /project/slime/cvsroot/slime/ChangeLog	2008/12/31 11:25:39	1.1614
@@ -25,6 +25,13 @@
 
 2008-12-31  Helmut Eller  <heller at common-lisp.net>
 
+	* swank.lisp (maybe-redirect-global-io): Don't consider
+	connections without streams.
+	(*new-connection-hook*): Don't add MAYBE-REDIRECT-GLOBAL-IO.
+	(create-repl): Call MAYBE-REDIRECT-GLOBAL-IO here.
+
+2008-12-31  Helmut Eller  <heller at common-lisp.net>
+
 	* swank-openmcl.lisp ([method] source-locations (symbol)): Drop
 	the unused _; the compiler dosn't like it.
 
--- /project/slime/cvsroot/slime/swank.lisp	2008/12/31 11:25:03	1.619
+++ /project/slime/cvsroot/slime/swank.lisp	2008/12/31 11:25:39	1.620
@@ -1468,8 +1468,9 @@
 NIL if streams are not globally redirected.")
 
 (defun maybe-redirect-global-io (connection)
-  "Consider globally redirecting to a newly-established CONNECTION."
-  (when (and *globally-redirect-io* (null *global-stdio-connection*))
+  "Consider globally redirecting to CONNECTION."
+  (when (and *globally-redirect-io* (null *global-stdio-connection*)
+             (connection.user-io connection))
     (setq *global-stdio-connection* connection)
     (globally-redirect-io-to-connection connection)))
 
@@ -1484,7 +1485,6 @@
         (progn (revert-global-io-redirection)
                (setq *global-stdio-connection* nil)))))
 
-(add-hook *new-connection-hook*    'maybe-redirect-global-io)
 (add-hook *connection-closed-hook* 'update-redirection-after-close)
 
 ;;;;; Redirection during requests
@@ -1505,6 +1505,7 @@
               (*debug-io*        . ,(@ user-io))
               (*query-io*        . ,(@ user-io))
               (*terminal-io*     . ,(@ user-io))))
+      (maybe-redirect-global-io conn)
       (when (use-threads-p)
         (setf (@ repl-thread) (spawn-repl-thread conn "repl-thread")))
       (list (package-name *package*)