From: Frank Duncan <frank.d.duncan@gmail.com>
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/gitweb.cgi?p=candle;a=commitdiff_plain;h=4c3171e265788043aba57ac742ecd232a1c6ffdf

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")