From: Olof-Joachim Frahm <olof@macrolet.net>
Date: Sat, 9 Feb 2013 15:35:11 +0000 (+0100)
Subject: Discard return values of watch functions.
X-Git-Url: http://repo.macrolet.net/gitweb/?p=cl-inotify.git;a=commitdiff_plain;h=a198d2600d5fa9c99d85ac7c27cd9e82a4bea9ec

Discard return values of watch functions.
---

diff --git a/inotify.lisp b/inotify.lisp
index 9319295..0e27e6e 100644
--- a/inotify.lisp
+++ b/inotify.lisp
@@ -404,6 +404,7 @@ instead.  Useful if you need to monitor just a fixed set of paths."
             ,.(mapcar (lambda (specifier)
                         `(watch-raw ,inotify ,@specifier))
                       rest)
+            (values)
             ,@body)
        (close-inotify ,inotify))))
 
@@ -422,5 +423,6 @@ UNWATCH calls on all WATCHed paths."
             ,.(mapcar (lambda (specifier)
                         `(watch ,inotify ,@specifier))
                       rest)
+            (values)
             ,@body)
        (close-inotify ,inotify))))