specter/geml
2
1
Fork 0
Code Issues Pull requests 1 Packages Projects Releases Wiki Activity

bad error handling

Browse source
This commit is contained in:
secretspecter 2023-08-15 07:35:56 -06:00
parent 93c1b6cc4d
commit 624aff860e
3 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
.gitignore vendored
View file

@ -1 +1,2 @@
bin/ bin/
tags

1
build.lisp
View file

@ -1,3 +1,4 @@
(ql:register-local-projects)
(ql:quickload :geml/bin) (ql:quickload :geml/bin)
(sb-ext:save-lisp-and-die "bin/geml-server" (sb-ext:save-lisp-and-die "bin/geml-server"

4
src/bin.lisp
View file

@ -41,5 +41,7 @@
((getf options :version) ((getf options :version)
(format t "~a~%" (asdf:component-version (asdf:find-system 'geml)))) (format t "~a~%" (asdf:component-version (asdf:find-system 'geml))))
(t (let ((settings (cl-ini:parse-ini (getf options :config)))) (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))))))))