(in-package :custom)
(use-package :oli)


(let* (
  (file "C:/temp/foo")
  ;; (f-size (frame2:file-size file))
  (last-mod-date (file-write-date file)))
  
    (defun watchdog (&rest args)
      (declare (ignore args))
      
      (let (
        (check-len (frame2:file-size file))
        (check-date (file-write-date file)))

          ;; (unless (= f-size check-len)
            ;; (setq f-size check-len)
            ;; (display (format nil "File size has changed: ~a" f-size)))

          (when (> check-date last-mod-date)
            (setq last-mod-date check-date)
            (display (format nil "File was modified on: ~a" last-mod-date))))))



(sd-unsubscribe-event *SD-INTERACTIVE-EVENT* 'watchdog)
(sd-subscribe-event *SD-INTERACTIVE-EVENT* 'watchdog)