0.8.2.7:

[sbcl.git] / contrib / sb-simple-streams / strategy.lisp

diff --git a/contrib/sb-simple-streams/strategy.lisp b/contrib/sb-simple-streams/strategy.lisp
index 2538f74..8b0eb0c 100644 (file)
--- a/contrib/sb-simple-streams/strategy.lisp
+++ b/contrib/sb-simple-streams/strategy.lisp
@@ -46,7 +46,7 @@
                 (sm buffer-ptr stream) 0)
           (remove-stream-instance-flags stream :dirty)
           (return 0))
-       (let ((bytes-written (device-write stream nil ptr nil blocking)))
+       (let ((bytes-written (device-write stream nil ptr bytes blocking)))
          (declare (fixnum bytes-written))
          (when (minusp bytes-written)
            (error "DEVICE-WRITE error."))
@@ -73,7 +73,7 @@
       (declare (type fixnum ptr bytes))
       (loop
        (when (>= ptr bytes) (setf (sm outpos stream) 0) (return 0))
-       (let ((bytes-written (device-write stream nil ptr nil blocking)))
+       (let ((bytes-written (device-write stream nil ptr bytes blocking)))
          (declare (fixnum bytes-written))
          (when (minusp bytes-written)
            (error "DEVICE-WRITE error."))