cl-inotify

gistfile1.lisp

(defun pickaxe (directory)
  (inotify:with-inotify (inot `((,directory ,(logior inotify:in-create
                                                     inotify:in-moved-to))))
    (write-line "Waiting for sales...")
    (loop
       (dolist (event (inotify:read-events inot))
         (when (equal
                (pathname-type (inotify:event-full-name event))
                "xml")
           (if (string-equal directory "/path/to/dropbox/")
               (process-document (inotify:event-full-name event))
               (process-sale (inotify:event-full-name event))))))))