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

[Helmut Eller]

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

Modified Files:
	swank.lisp 
Log Message:
(emacs-connected): Pass the redirected stream as argument, so that the
OpenMCL backend can add it to CCL::*AUTO-FLUSH-STREAMS*.

Date: Wed Jun 16 15:04:09 2004
Author: heller

Index: slime/swank.lisp
diff -u slime/swank.lisp:1.191 slime/swank.lisp:1.192
--- slime/swank.lisp:1.191	Wed Jun 16 13:26:58 2004
+++ slime/swank.lisp	Wed Jun 16 15:04:09 2004
@@ -270,8 +270,7 @@
   (funcall (connection.serve-requests connection) connection))
 
 (defun init-emacs-connection (connection)
-  (declare (ignore connection))
-  (emacs-connected))
+  (emacs-connected (connection.user-io connection)))
 
 (defun announce-server-port (file port)
   (with-open-file (s file