Patch from Nikodemus Siivola adding an :after method on

stream-finish-output for standard-extended-output-stream.
antifuchs · Jul 31, 2009 · e12a40d · e12a40d
1 parent 9bc7f7b
commit e12a40d
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/stream-output.lisp b/stream-output.lisp
@@ -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))