diff --git a/.gitignore b/.gitignore index e660fd9..0e43070 100644 --- a/.gitignore +++ b/.gitignore @@ -1 +1,2 @@ bin/ +tags diff --git a/build.lisp b/build.lisp index 727f832..6f625ce 100644 --- 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" diff --git a/src/bin.lisp b/src/bin.lisp index 5e61bb1..14be2a5 100644 --- 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))))))))