cage
/
tinmop
mirror of https://codeberg.org/cage/tinmop/
1
0
Fork 0
Code Issues

- fixed crash when starting the program without a configuration file.

This commit is contained in:
cage 2021-02-20 18:28:49 +01:00
parent ceb965dc83
commit 04ca1d14c1
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/api-client.lisp
View File

@ -765,8 +765,9 @@ and day is current time)"
"Initialize the client, prepare it for `authorize'."
(flet ((credentials-filename ()
(handler-bind ((error
(lambda (e)
(invoke-restart 'res:return-home-filename e))))
(lambda (e)
(declare (ignore e))
(invoke-restart 'res:return-home-filename))))
(res:get-data-file +credentials-filename+))))
(let ((resource-file (credentials-filename)))
(if (not (fs:file-exists-p resource-file))