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

[Helmut Eller]

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

Modified Files:
	swank-openmcl.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:04 2004
Author: heller

Index: slime/swank-openmcl.lisp
diff -u slime/swank-openmcl.lisp:1.76 slime/swank-openmcl.lisp:1.77
--- slime/swank-openmcl.lisp:1.76	Sat Jun 12 05:01:23 2004
+++ slime/swank-openmcl.lisp	Wed Jun 16 15:04:04 2004
@@ -85,8 +85,9 @@
 (defimplementation accept-connection (socket)
   (ccl:accept-connection socket :wait t))
 
-(defimplementation emacs-connected ()
-  (setq ccl::*interactive-abort-process* ccl::*current-process*))
+(defimplementation emacs-connected (stream)
+  (setq ccl::*interactive-abort-process* ccl::*current-process*)
+  (push stream ccl::*auto-flush-streams*))
 
 ;;; Unix signals