aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorColin Okay <okay@toyful.space>2022-02-28 10:46:36 -0600
committerColin Okay <okay@toyful.space>2022-02-28 10:46:36 -0600
commitc8a606d147bb4ad13546e3c424c90c7d479ce147 (patch)
tree1631a9c55046e0fb885610525abf69a37eb71ac9 /src
parentdeaa7016f6ed29521697ffcf1c39720bafa73fcb (diff)
running loop
Diffstat (limited to 'src')
-rw-r--r--src/main.lisp10
-rw-r--r--src/run.lisp3
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)))