From 3fdb8194fb7721fecf476e00c87c7b59306d0680 Mon Sep 17 00:00:00 2001 From: Stelian Ionescu Date: Wed, 16 Jul 2008 21:26:59 +0200 Subject: [PATCH] Small fix. Signed-off-by: Stelian Ionescu --- io.streams/zeta/buffer.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/io.streams/zeta/buffer.lisp b/io.streams/zeta/buffer.lisp index 520643c..c70c690 100644 --- a/io.streams/zeta/buffer.lisp +++ b/io.streams/zeta/buffer.lisp @@ -245,7 +245,8 @@ (defmethod buffer-clear-input ((buffer buffer)) (with-accessors ((input-buffer input-buffer-of) - (last-io-op last-io-op-of)) + (last-io-op last-io-op-of) + (single-channel-p single-channel-buffer-p)) buffer (flet ((%buffer-clear-input () (when (or (not single-channel-p) -- 2.11.4.GIT