Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Moved the &OPTIONAL to the right place.

  • Loading branch information...
commit 99b9d1ff2c37fd345042e42204f2eb77c71a190c 1 parent 5d80fe9
@Ferada authored
Showing with 2 additions and 2 deletions.
  1. +2 −2 inotify.lisp
View
4 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.
Please sign in to comment.
Something went wrong with that request. Please try again.