rubikitch #597(2007/07/11 21:58 GMT) [ Common Lisp ] Rating0/0=0.00
1 2 3 4 5 6 7 8
(defun modify-checker (filename) (labels ((mtime () (sb-posix:stat-mtime (sb-posix:stat filename))) (check (old-t new-t) (when (/= old-t new-t) (format t "modified!~%")) (sleep 3) (check new-t (mtime)))) (check (mtime) (mtime))))
Rating0/0=0.00-0+
[ reply ]
rubikitch
#597()
[
Common Lisp
]
Rating0/0=0.00
(defun modify-checker (filename) (labels ((mtime () (sb-posix:stat-mtime (sb-posix:stat filename))) (check (old-t new-t) (when (/= old-t new-t) (format t "modified!~%")) (sleep 3) (check new-t (mtime)))) (check (mtime) (mtime))))Rating0/0=0.00-0+
[ reply ]