projects
/
candle
/ blobdiff
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Add job processing, local disk processing
[candle]
/
src
/
main
/
server.lisp
diff --git
a/src/main/server.lisp
b/src/main/server.lisp
index 07d6213876f5bb10f96b41c59d759279a3c8aaad..a97c1f56778f6eb364ce993cd5658045b8a4c8e6 100644
(file)
--- a/
src/main/server.lisp
+++ b/
src/main/server.lisp
@@
-14,6
+14,8
@@
(sleep (* 5 60))
(lame-db:save-known-dbs data-dir))))
:name "Save Thread")
(sleep (* 5 60))
(lame-db:save-known-dbs data-dir))))
:name "Save Thread")
+ (format t "Starting processor in ~(~A~) mode~%" *job-system*)
+ (start-processor-thread)
(communication:start-listener port background)))
(defun add-project (name src)
(communication:start-listener port background)))
(defun add-project (name src)
@@
-56,7
+58,8
@@
(make-branch :name branch-name :project project))))
(set-branch-in-git branch t)
(set-branch-job branch job))))
(make-branch :name branch-name :project project))))
(set-branch-in-git branch t)
(set-branch-job branch job))))
- (cl-ppcre:split "\\n" out)))))
+ (cl-ppcre:split "\\n" out))))
+ (awaken-processor-thread))
(defun delete-project (name)
(let
(defun delete-project (name)
(let