(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)
(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)