;; Handle encapsulated stream. FIXME: perhaps handle
;; sbcl-vintage ansi-stream type in read-octets too?
(stream (read-octets fd buffer start end blocking))
- (t (error "Don't know how to handle input handle &S" fd))))))
+ (t (error "Don't know how to handle input handle ~S" fd))))))
(defun write-octets (stream buffer start end blocking)
(declare (type simple-stream stream)
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))