bad error handling

2023-08-15 07:35:56 -06:00 · 2023-08-15 07:35:56 -06:00 · 624aff860e
parent 93c1b6cc4d
commit 624aff860e
3 changed files with 5 additions and 1 deletions
--- a/.gitignore
+++ b/.gitignore
@ -1 +1,2 @@
 bin/
+tags
--- a/build.lisp
+++ b/build.lisp
@ -1,3 +1,4 @@
+(ql:register-local-projects)
 (ql:quickload :geml/bin)

 (sb-ext:save-lisp-and-die "bin/geml-server"
--- a/src/bin.lisp
+++ b/src/bin.lisp
@ -41,5 +41,7 @@
      ((getf options :version)
       (format t "~a~%" (asdf:component-version (asdf:find-system 'geml))))
      (t (let ((settings (cl-ini:parse-ini (getf options :config))))
-           (start-server settings))))))
+           (handler-case (start-server settings)
+             ;; TODO handle more specific cases
+             (error (c) (format t "Server Error: ~A~%" c))))))))