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

[Helmut Eller]

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

Modified Files:
	swank-openmcl.lisp 
Log Message:
(emacs-connected, make-stream-interactive): Move buffering stuff to
make-stream-interactive.

Date: Tue Nov 16 00:07:00 2004
Author: heller

Index: slime/swank-openmcl.lisp
diff -u slime/swank-openmcl.lisp:1.87 slime/swank-openmcl.lisp:1.88
--- slime/swank-openmcl.lisp:1.87	Tue Nov  9 23:57:11 2004
+++ slime/swank-openmcl.lisp	Tue Nov 16 00:07:00 2004
@@ -139,8 +139,10 @@
 (defimplementation accept-connection (socket)
   (ccl:accept-connection socket :wait t))
 
-(defimplementation emacs-connected (stream)
+(defimplementation emacs-connected ()
   (setq ccl::*interactive-abort-process* ccl::*current-process*)
+
+(defimplementation make-stream-interactive (stream)
   (push stream ccl::*auto-flush-streams*))
 
 ;;; Unix signals