From 93ba5119bfc762cd2b811897b5a17ac07f6ec547 Mon Sep 17 00:00:00 2001 From: Olof-Joachim Frahm Date: Thu, 9 Jun 2011 14:26:56 +0200 Subject: [PATCH] Missing exports and loop indentation. --- inotify.lisp | 20 ++++++++++---------- package.lisp | 3 ++- 2 files changed, 12 insertions(+), 11 deletions(-) diff --git a/inotify.lisp b/inotify.lisp index 0d9ca13..89348e3 100644 --- a/inotify.lisp +++ b/inotify.lisp @@ -330,8 +330,8 @@ may be one from a given EVENT) or PATHNAME." (defun list-watched (inotify) "Returns a LIST of all watched pathnames in no particular order." (loop - for pathname being each hash-key in (inotify-watched inotify) - collect pathname)) + for pathname being each hash-key in (inotify-watched inotify) + collect pathname)) (defun unix-eagain-p (fd-stream) "Returns T on a FD-STREAM if trying to read from the stream raised a @@ -363,15 +363,15 @@ terminates if no events are available." (check-type var symbol) (let ((inotify-sym (gensym))) `(loop - with ,var and ,inotify-sym = ,inotify - ,.(unless blocking-p - `(while (event-available-p ,inotify-sym))) - do (progn - (setf ,var (read-event ,inotify-sym)) - ,.body)))) + with ,var and ,inotify-sym = ,inotify + ,.(unless blocking-p + `(while (event-available-p ,inotify-sym))) + do (progn + (setf ,var (read-event ,inotify-sym)) + ,.body)))) (defun next-events (inotify) "Reads all available events from the queue. Returns a LIST of events." (loop - while (event-available-p inotify) - collect (read-event inotify))) + while (event-available-p inotify) + collect (read-event inotify))) diff --git a/package.lisp b/package.lisp index fa2b88b..ebdba14 100644 --- a/package.lisp +++ b/package.lisp @@ -46,7 +46,8 @@ ;;; enhanced functionality #:make-inotify - #:watchedp + #:pathname-handle/flags + #:event-pathname/flags #:watch #:unwatch #:event-availablep -- 1.7.10.4