X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-simple-streams%2Fsimple-streams.lisp;fp=contrib%2Fsb-simple-streams%2Fsimple-streams.lisp;h=31db6dd653e0869f2026df1cd339f52823a78dc4;hb=8dc1241068db5855115a9e25488a8962718a6c79;hp=f83966b2a95f67b762c79db7df0d158320048e14;hpb=dc78da1842ccba35e49ca8ca91fd0ab88b1a08b3;p=sbcl.git

diff --git a/contrib/sb-simple-streams/simple-streams.lisp b/contrib/sb-simple-streams/simple-streams.lisp
index f83966b..31db6dd 100644
--- a/contrib/sb-simple-streams/simple-streams.lisp
+++ b/contrib/sb-simple-streams/simple-streams.lisp
@@ -345,16 +345,14 @@
 			 start end blocking)
   (when (and (null buffer) (not (eql start end)))
     (with-stream-class (single-channel-simple-stream stream)
-      (setf buffer (sm buffer stream))
-      (setf end (sm buffpos stream))))
+      (setf buffer (sm buffer stream))))
   (write-octets stream buffer start end blocking))
 
 (defmethod device-write ((stream dual-channel-simple-stream) buffer
 			 start end blocking)
   (when (and (null buffer) (not (eql start end)))
     (with-stream-class (dual-channel-simple-stream stream)
-      (setf buffer (sm out-buffer stream))
-      (setf end (sm outpos stream))))
+      (setf buffer (sm out-buffer stream))))
   (write-octets stream buffer start end blocking))
 
 (defmethod device-clear-output ((stream simple-stream))