Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

read-events: Advance the buffer pointer, not just create N first events.

Patch by Pawel Turnau.
  • Loading branch information...
commit b09c0d9c5decc9c670f56598383ffe6e80764806 1 parent b179eb0
@stassats authored
Showing with 5 additions and 5 deletions.
  1. +5 −5 inotify.lisp
View
10 inotify.lisp
@@ -136,15 +136,15 @@
(defun read-events (inotify)
(let* ((buffer (inotify-buffer inotify))
(bytes-read
- (isys:repeat-upon-eintr
- (isys:read (inotify-fd inotify)
- buffer
- (inotify-buffer-size inotify)))))
+ (isys:repeat-upon-eintr
+ (isys:read (inotify-fd inotify)
+ buffer
+ (inotify-buffer-size inotify)))))
(loop with event and event-length
for offset = 0 then (+ offset event-length)
while (< offset bytes-read)
do (setf (values event event-length)
- (read-event inotify buffer))
+ (read-event inotify (inc-pointer buffer offset)))
collect event)))
(defun make-inotify-with-watches (paths-with-masks)
Please sign in to comment.
Something went wrong with that request. Please try again.