From 67d3bfd5eec87b753cf50c39a5f28270bedde659 Mon Sep 17 00:00:00 2001 From: Stelian Ionescu Date: Sun, 4 Apr 2010 22:37:21 +0200 Subject: [PATCH] Style change. --- src/multiplex/fd-wait.lisp | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) diff --git a/src/multiplex/fd-wait.lisp b/src/multiplex/fd-wait.lisp index 134070c..9c14044 100644 --- a/src/multiplex/fd-wait.lisp +++ b/src/multiplex/fd-wait.lisp @@ -39,10 +39,12 @@ of a file descriptor.")) (flags-case revents ((isys:pollin isys:pollrdhup isys:pollpri) (setf readp t)) - ((isys:pollout isys:pollhup) (setf writep t)) - ((isys:pollerr) (error 'poll-error :fd fd)) - ((isys:pollnval) (error 'poll-error :fd fd - :identifier "Invalid file descriptor"))) + ((isys:pollout isys:pollhup) + (setf writep t)) + ((isys:pollerr) + (error 'poll-error :fd fd)) + ((isys:pollnval) + (error 'poll-error :fd fd :identifier "Invalid file descriptor"))) (values readp writep))) (defun wait-until-fd-ready (file-descriptor event-type &optional timeout errorp) @@ -57,7 +59,8 @@ Returns two boolean values indicating readability and writeability of `FILE-DESC :identifier (isys:identifier-of unix-err)))) (with-foreign-object (pollfd 'isys:pollfd) (isys:bzero pollfd isys:size-of-pollfd) - (with-foreign-slots ((isys:fd isys:events isys:revents) pollfd isys:pollfd) + (with-foreign-slots ((isys:fd isys:events isys:revents) + pollfd isys:pollfd) (setf isys:fd file-descriptor isys:events (compute-poll-flags event-type)) (handler-case -- 2.11.4.GIT