From 99b9d1ff2c37fd345042e42204f2eb77c71a190c Mon Sep 17 00:00:00 2001 From: Olof-Joachim Frahm Date: Sat, 25 Feb 2012 12:08:44 +0100 Subject: [PATCH] Moved the &OPTIONAL to the right place. --- inotify.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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. -- 1.7.10.4