From 618ec4d50a919dd4975ad20ad61189a13383dae6 Mon Sep 17 00:00:00 2001 From: Stelian Ionescu Date: Mon, 21 Jul 2008 01:57:02 +0200 Subject: [PATCH] Style changes. Signed-off-by: Stelian Ionescu --- io.streams/zeta/buffer.lisp | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/io.streams/zeta/buffer.lisp b/io.streams/zeta/buffer.lisp index ad19e1f..c41b155 100644 --- a/io.streams/zeta/buffer.lisp +++ b/io.streams/zeta/buffer.lisp @@ -118,6 +118,7 @@ (device-close output-handle))) (values buffer)) + ;;;----------------------------------------------------------------------------- ;;; Buffer DEVICE-READ ;;;----------------------------------------------------------------------------- @@ -204,7 +205,7 @@ ;;;----------------------------------------------------------------------------- -;;; BUFFER CLEAR-INPUT +;;; Buffer CLEAR-INPUT ;;;----------------------------------------------------------------------------- (defmethod buffer-clear-input ((buffer single-channel-buffer)) @@ -227,7 +228,7 @@ ;;;----------------------------------------------------------------------------- -;;; BUFFER CLEAR-OUTPUT +;;; Buffer CLEAR-OUTPUT ;;;----------------------------------------------------------------------------- (defmethod buffer-clear-output ((buffer single-channel-buffer)) @@ -241,7 +242,7 @@ ;;;----------------------------------------------------------------------------- -;;; BUFFER FILL-INPUT +;;; Buffer FILL-INPUT ;;;----------------------------------------------------------------------------- (defmethod buffer-fill-input ((buffer single-channel-buffer) &optional timeout) @@ -276,7 +277,7 @@ ;;;----------------------------------------------------------------------------- -;;; BUFFER FLUSH-OUTPUT +;;; Buffer FLUSH-OUTPUT ;;;----------------------------------------------------------------------------- (defmethod buffer-flush-output ((buffer single-channel-buffer) &optional timeout) -- 2.11.4.GIT