From: Frank Duncan Date: Sat, 18 Dec 2021 18:19:39 +0000 (-0600) Subject: Fix save thread not actually saving, increase to 5 minutes X-Git-Url: https://code.consxy.com/gitweb/?a=commitdiff_plain;h=4c3171e265788043aba57ac742ecd232a1c6ffdf;p=candle Fix save thread not actually saving, increase to 5 minutes --- diff --git a/src/main/server.lisp b/src/main/server.lisp index bdf8d77..7d7af0b 100644 --- a/src/main/server.lisp +++ b/src/main/server.lisp @@ -30,13 +30,13 @@ :while active :do (sb-thread:with-mutex (mutex) - (sb-thread:condition-wait waitq mutex))) - (lame-db:save-known-dbs data-dir)) + (sb-thread:condition-wait waitq mutex) + (lame-db:save-known-dbs data-dir)))) :name "Save Thread"))) (sb-thread:make-thread (lambda () (loop - (sleep (* 1 60)) + (sleep (* 5 60)) (sb-thread:with-mutex (mutex) (sb-thread:condition-broadcast waitq)))) :name "Save Thread Trigger")