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

[Helmut Eller]

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

Modified Files:
	present.lisp 
Log Message:
(presentation-start, presentation-end): Use finish-output instead of
force-output.

Date: Wed Sep 21 22:33:59 2005
Author: heller

Index: slime/present.lisp
diff -u slime/present.lisp:1.16 slime/present.lisp:1.17
--- slime/present.lisp:1.16	Sun Sep 18 16:35:02 2005
+++ slime/present.lisp	Wed Sep 21 22:33:46 2005
@@ -115,7 +115,7 @@
 	     (prin1 pid stream)
 	     (write-string "" stream))
 	    (t
-	     (force-output stream)
+	     (finish-output stream)
 	     (send-to-emacs `(:presentation-start ,pid)))))
     (setf (presentation-record-printed-p record) t)))
 	   
@@ -129,7 +129,7 @@
 	     (prin1 pid stream)
 	     (write-string "" stream))
 	    (t
-	     (force-output stream)
+	     (finish-output stream)
 	     (send-to-emacs `(:presentation-end ,pid)))))))
 
 (defun presenting-object-1 (object stream continue)