From: Olof-Joachim Frahm <olof@macrolet.net>
Date: Sat, 25 Feb 2012 11:08:44 +0000 (+0100)
Subject: Moved the &OPTIONAL to the right place.
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=99b9d1ff2c37fd345042e42204f2eb77c71a190c;p=cl-inotify.git

Moved the &OPTIONAL to the right place.
---

diff --git a/inotify.lisp b/inotify.lisp
index 3ff12d7..e43e7db 100644
--- a/inotify.lisp
+++ b/inotify.lisp
@@ -380,7 +380,7 @@ terminates if no events are available."
 
 ;;; this has the longer name, because this way you actually have to read
 ;;; about the differences, at least i hope so
-(defmacro with-unregistered-inotify ((&optional inotify (nonblocking T) &rest rest) &body body)
+(defmacro with-unregistered-inotify ((inotify &optional (nonblocking T) &rest rest) &body body)
   "Like WITH-INOTIFY, but uses MAKE-UNREGISTERED-INOTIFY and WATCH-RAW
 instead.  Useful if you need to monitor just a fixed set of paths."
   `(let* ((,inotify (make-unregistered-inotify ,nonblocking)))
@@ -392,7 +392,7 @@ instead.  Useful if you need to monitor just a fixed set of paths."
 	    ,.body)
        (close-inotify ,inotify))))
 
-(defmacro with-inotify ((&optional inotify (nonblocking T) &rest rest) &body body)
+(defmacro with-inotify ((inotify &optional (nonblocking T) &rest rest) &body body)
   "Executes BODY with a newly created queue bound to INOTIFY if true.
 See MAKE-INOTIFY for more information about possible arguments.