X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-simple-streams%2Fstrategy.lisp;h=8b0eb0ca8ecdf22f21387bf4ca0ae0ecdeaddea2;hb=22c1de0a40df83bb5628974010a879cb2c17ff53;hp=2538f74fb04f236d394b24566b03486fcb17c77f;hpb=ce58e434470b1ebefae6132d9c075c7d8a2c0c13;p=sbcl.git

diff --git a/contrib/sb-simple-streams/strategy.lisp b/contrib/sb-simple-streams/strategy.lisp
index 2538f74..8b0eb0c 100644
--- 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."))