From c8a606d147bb4ad13546e3c424c90c7d479ce147 Mon Sep 17 00:00:00 2001
From: Colin Okay <okay@toyful.space>
Date: Mon, 28 Feb 2022 10:46:36 -0600
Subject: running loop

---
 src/main.lisp | 10 +++++++---
 src/run.lisp  |  3 ++-
 2 files changed, 9 insertions(+), 4 deletions(-)

(limited to 'src')

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)))
-- 
cgit v1.2.3