File testlocking/justtest.scm artifact 59ddbd6a63 part of check-in 60b31fb56a
(print "Starting at "(current-seconds)) (dbfile:with-simple-file-lock "justtesting.lock" (lambda () (print "got the lock at "(current-seconds)"!"))) (print "Done at: " (current-seconds)) (exit)