From e5955d97e9e2b44218488d6bd9b0f0f7060f4bfc Mon Sep 17 00:00:00 2001 From: Stelian Ionescu Date: Sun, 3 Aug 2008 12:30:03 +0200 Subject: [PATCH] Use :IO instead of :BOTH. Signed-off-by: Stelian Ionescu --- io.streams/zeta/buffer.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/io.streams/zeta/buffer.lisp b/io.streams/zeta/buffer.lisp index d35075f..e249663 100644 --- a/io.streams/zeta/buffer.lisp +++ b/io.streams/zeta/buffer.lisp @@ -60,7 +60,7 @@ (:output `(bt:with-lock-held ((iobuf-lock (output-iobuf-of ,buffer))) ,body)) - (:both + (:io (make-locks (make-locks body :output) :input))))) `(flet ((,body-fun () ,@body)) (if (synchronizedp ,buffer) @@ -110,7 +110,7 @@ (with-accessors ((input-handle input-handle-of buffer) (output-handle output-handle-of buffer)) buffer - (with-synchronized-buffer (buffer :both) + (with-synchronized-buffer (buffer :io) (unless abort (%buffer-flush-output buffer 0)) (device-close input-handle) -- 2.11.4.GIT