File testlocking/justtest.scm artifact 59ddbd6a63 part of check-in 7fb44b797e
(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)