Update of /cvsroot/sbcl/sbcl/src/code
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv25737/src/code
Modified Files:
fd-stream.lisp
Log Message:
1.0.8.8: restore reuse-sap value after incomplete writes in FROB-OUTPUT-LATER
* Unless we do this, we leak each reusable sap that happens to hit this
code path.
* Thanks to David Smith.
Index: fd-stream.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/fd-stream.lisp,v
retrieving revision 1.116
retrieving revision 1.117
diff -u -d -r1.116 -r1.117
--- fd-stream.lisp 19 Jul 2007 12:58:59 -0000 1.116
+++ fd-stream.lisp 27 Jul 2007 12:09:10 -0000 1.117
@@ -219,7 +219,8 @@
((not (null count)) ; sorta worked..
(push (list base
(the index (+ start count))
- end)
+ end
+ reuse-sap)
(fd-stream-output-later stream))))))
(unless (fd-stream-output-later stream)
(remove-fd-handler (fd-stream-handler stream))
|