diff options
| author | Colin Okay <okay@toyful.space> | 2022-02-28 10:46:36 -0600 |
|---|---|---|
| committer | Colin Okay <okay@toyful.space> | 2022-02-28 10:46:36 -0600 |
| commit | c8a606d147bb4ad13546e3c424c90c7d479ce147 (patch) | |
| tree | 1631a9c55046e0fb885610525abf69a37eb71ac9 | |
| parent | deaa7016f6ed29521697ffcf1c39720bafa73fcb (diff) | |
running loop
| -rw-r--r-- | src/main.lisp | 10 | ||||
| -rw-r--r-- | src/run.lisp | 3 |
2 files changed, 9 insertions, 4 deletions
diff --git a/src/main.lisp b/src/main.lisp index 0dfc7a7..2c00512 100644 --- a/src/main.lisp +++ b/src/main.lisp @@ -305,7 +305,10 @@ started, this will allow remote live debugging of the system. (when swank-port (setf *swank-thread* (bt:make-thread - (lambda () (swank:create-server :port swank-port :dont-close t)))))))))) + (lambda () (swank:create-server :port swank-port :dont-close t)))) + (format t "started swank server on ~a~%" swank-port))))) + (error (err) + (format t "Caught error ~a~%" err)))) (defun start (&key @@ -319,10 +322,11 @@ started, this will allow remote live debugging of the system. *server-domain* domain) (ensure-datastore store-dir) (ensure-server port address) - (lzb:install-app *server* (lzb:app)) + (lzb:install-app *server* (lzb:app 'oneliners.api::oneliners.api)) (lzb:start-server *server*) (setf *runningp* t) - (start-cleaning-thread)) + (start-cleaning-thread) + (format t "STARTED~%")) (defun start-cleaning-thread (&key (run-period 3600)) diff --git a/src/run.lisp b/src/run.lisp index 677d46c..e6583e2 100644 --- a/src/run.lisp +++ b/src/run.lisp @@ -12,4 +12,5 @@ (defun run () (a:if-let ((conf-file (get-option "--config"))) (start-from-config conf-file) - (start-from-config))) + (start-from-config)) + (loop while *runningp* do (sleep 10))) |