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))
