[Sbcl-commits] CVS: sbcl/src/code fd-stream.lisp,1.116,1.117

[Nikodemus S. <de...@us...>]

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