From: Olof-Joachim Frahm <Olof.Frahm@web.de>
Date: Thu, 9 Jun 2011 12:26:56 +0000 (+0200)
Subject: Missing exports and loop indentation.
X-Git-Url: http://repo.macrolet.net/gitweb/?p=cl-inotify.git;a=commitdiff_plain;h=93ba5119bfc762cd2b811897b5a17ac07f6ec547

Missing exports and loop indentation.
---

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