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

[Helmut Eller]

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

Modified Files:
	swank.lisp 
Log Message:
(force-user-output): There seems to be a bug in Allegro's
two-way-streams. As a workaround we use force-output for the user-io
stream.  (finish-output *debug-io*) still triggers the bug.

Date: Tue Oct 11 00:25:54 2005
Author: heller

Index: slime/swank.lisp
diff -u slime/swank.lisp:1.343 slime/swank.lisp:1.344
--- slime/swank.lisp:1.343	Sun Oct  9 20:55:52 2005
+++ slime/swank.lisp	Tue Oct 11 00:25:51 2005
@@ -1002,7 +1002,7 @@
       (prin1-to-string object))))
 
 (defun force-user-output ()
-  (finish-output (connection.user-io *emacs-connection*))
+  (force-output (connection.user-io *emacs-connection*))
   (finish-output (connection.user-output *emacs-connection*)))
 
 (defun clear-user-input  ()