From: Olof-Joachim Frahm <olof@macrolet.net>
Date: Sat, 9 Feb 2013 14:33:01 +0000 (+0100)
Subject: Add inotify_init1 variant.
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=2a1a0dca724e7008a6c4ec696c1de505168c7561;p=cl-inotify.git

Add inotify_init1 variant.
---

diff --git a/grovel.lisp b/grovel.lisp
index 1e207f1..0faef4c 100644
--- a/grovel.lisp
+++ b/grovel.lisp
@@ -30,6 +30,8 @@
 
 (include "sys/inotify.h")
 
+(constant (in-cloexec       "IN_CLOEXEC"))
+(constant (in-nonblock      "IN_NONBLOCK"))
 (constant (in-access        "IN_ACCESS"))
 (constant (in-modify        "IN_MODIFY"))
 (constant (in-attrib        "IN_ATTRIB"))
diff --git a/inotify.lisp b/inotify.lisp
index c9616f2..d768cb5 100644
--- a/inotify.lisp
+++ b/inotify.lisp
@@ -28,6 +28,10 @@
 
 (in-package #:cl-inotify)
 
+(defbitfield (inotify1-flag :int)
+  (:cloexec       #.in-cloexec)
+  (:nonblock      #.in-nonblock))
+
 (defbitfield (inotify-flag :uint32)
   (:access        #.in-access)
   (:modify        #.in-modify)