- > (with-unregistered-inotify (inotify T ("." :all-events))
- > (flet ((inotify-input (handler)
- > (declare (ignore handler))
- > (format T "~{~A~%~}" (next-events inotify))))
- > (sb-sys:with-fd-handler ((inotify-fd inotify) :input #'inotify-input)
- > (loop (sb-sys:serve-all-events 1)))))
+ (with-unregistered-inotify (inotify T ("." :all-events))
+ (flet ((inotify-input (&rest rest)
+ (declare (ignore rest))
+ (format T "~{~A~%~}" (next-events inotify))))
+ (iolib:with-event-base (event-base)
+ (iolib:set-io-handler event-base (inotify-fd inotify) :read #'inotify-input)
+ (iolib:event-dispatch event-base))))