diff options
Diffstat (limited to 'src/main.lisp')
| -rw-r--r-- | src/main.lisp | 10 |
1 files changed, 7 insertions, 3 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)) |