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

[Helmut Eller]

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

Modified Files:
	swank-backend.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:03:58 2004
Author: heller

Index: slime/swank-backend.lisp
diff -u slime/swank-backend.lisp:1.52 slime/swank-backend.lisp:1.53
--- slime/swank-backend.lisp:1.52	Wed Jun 16 13:25:09 2004
+++ slime/swank-backend.lisp	Wed Jun 16 15:03:58 2004
@@ -133,14 +133,17 @@
 ;;; Base condition for networking errors.
 (define-condition network-error (simple-error) ())
 
-(definterface emacs-connected ()
+(definterface emacs-connected (stream)
    "Hook called when the first connection from Emacs is established.
 Called from the INIT-FN of the socket server that accepts the
 connection.
 
 This is intended for setting up extra context, e.g. to discover
-that the calling thread is the one that interacts with Emacs."
-   nil)
+that the calling thread is the one that interacts with Emacs.
+
+STREAM is the redirected user output stream to Emacs.  This is passed
+so that the backend can apply buffer flushing magic."  
+  nil)
 
 
 ;;;; Unix signals