From: Frank Duncan Date: Fri, 10 Dec 2021 11:40:30 +0000 (-0600) Subject: Launch save thread before the listener X-Git-Url: https://code.consxy.com/gitweb/gitweb.cgi?p=candle;a=commitdiff_plain;h=82563c8bf8b861e2e52211abd5d7be531ea9c6bd Launch save thread before the listener --- diff --git a/src/main/server.lisp b/src/main/server.lisp index afa5aa0..432c83d 100644 --- a/src/main/server.lisp +++ b/src/main/server.lisp @@ -2,14 +2,14 @@ (defun server (port &optional (background t)) (lame-db:load-known-dbs "/home/herbie/.lame-db/data") - (communication:start-listener port background) (sb-thread:make-thread (lambda () (do () (nil) (progn (sleep (* 5 60)) (lame-db:save-known-dbs "/home/herbie/.lame-db/data")))) - :name "Save Thread")) + :name "Save Thread") + (communication:start-listener port background)) (defun add-project (name src) (make-project :name name :src src)