From: Olof-Joachim Frahm <olof@macrolet.net>
Date: Thu, 15 Jan 2015 23:35:49 +0000 (+0000)
Subject: Use better type test.
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=bcced21c7cb9431b9f63646e33146e8f3c82a1d7;p=cl-inotify.git

Use better type test.
---

diff --git a/src/inotify.lisp b/src/inotify.lisp
index 87931fc..fe404a3 100644
--- a/src/inotify.lisp
+++ b/src/inotify.lisp
@@ -83,9 +83,9 @@
     (member :dont-follow :mask-add :oneshot :onlydir)))
 
 (defun valid-watch-flag-p (x)
-  (and (typep x 'inotify-add-flag)
-       (not (eq :mask-add x))
-       (not (eq :oneshot x))))
+  (or (typep x 'inotify-read-flag)
+      (eq :dont-follow x)
+      (eq :onlydir x)))
 
 (defun valid-watch-flag-list-p (list)
   (every #'valid-watch-flag-p list))