- (let ((lcrs (sm last-char-read-size stream)))
- (when (and (not (any-stream-instance-flags stream :dual :string))
- (>= (sm mode stream) 0))
- ;; single-channel stream dirty -> write data before reading
- (flush-buffer stream nil))
- (>= (refill-buffer stream nil) width))))))
+ (when (and (not (any-stream-instance-flags stream :dual :string))
+ (>= (sm mode stream) 0))
+ ;; single-channel stream dirty -> write data before reading
+ (flush-buffer stream nil))
+ (>= (refill-buffer stream nil) width)))))