Permalink
Browse files

Patch from Nikodemus Siivola adding an :after method on

stream-finish-output for standard-extended-output-stream.
  • Loading branch information...
1 parent 9bc7f7b commit e12a40d560b792cd3781516c636202bde8942ebc Robert Strandh committed Jul 31, 2009
Showing with 5 additions and 0 deletions.
  1. +5 −0 stream-output.lisp
View
@@ -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))

0 comments on commit e12a40d

Please sign in to comment.