[mcclim-cvs] CVS mcclim

[rstrandh]

Update of /project/mcclim/cvsroot/mcclim
In directory cl-net:/tmp/cvs-serv9781

Modified Files:
	stream-output.lisp 
Log Message:
Patch from Nikodemus Siivola adding an :after method on
stream-finish-output for standard-extended-output-stream.



--- /project/mcclim/cvsroot/mcclim/stream-output.lisp	2008/10/23 20:49:58	1.63
+++ /project/mcclim/cvsroot/mcclim/stream-output.lisp	2009/07/31 11:32:21	1.64
@@ -202,6 +202,11 @@
   (with-sheet-medium (medium stream)
     (medium-force-output medium)))
 
+(defmethod stream-finish-output :after ((stream
+					 standard-extended-output-stream))
+  (with-sheet-medium (medium stream)
+    (medium-finish-output medium)))
+
 (defmethod compose-space ((pane standard-extended-output-stream) &key width height)
   (declare (ignorable width height))