Flush the right amount of data when in write-ascii-string-optimized.

stassats · Mar 22, 2012 · 7234a08 · 7234a08
1 parent 21db675
commit 7234a08
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 1 deletion.
diff --git a/benchmarks.lisp b/benchmarks.lisp
@@ -50,7 +50,7 @@
   (make-string (or object-size 10000)))
 
 (defmethod create-test-object ((type (eql 'constant-string)) &key)
-  #.(coerce "AAAAAAAAAAAAAAAAdddddddddddddddddddddsssssssssssss" 'simple-base-string))
+  #.(coerce "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz" 'simple-base-string))
 
 (defun class-preallocation-test (storage)
   (loop for class in (storage-data storage)

diff --git a/io-sbcl.lisp b/io-sbcl.lisp
@@ -278,6 +278,8 @@
                     (left-length (sb-ext:truly-the word (- length left))))
                (declare (word left left-length))
                (copy-mem string-sap (sb-sys:int-sap position) left)
+               (setf (output-stream-buffer-position stream)
+                     (output-stream-buffer-end stream))
                (flush-buffer stream)
                (copy-mem (sb-sys:sap+ string-sap left)
                          (sb-sys:int-sap start) left-length)