mirror of https://codeberg.org/cage/tinmop/
- fixed crash when starting the program without a configuration file.
This commit is contained in:
parent
ceb965dc83
commit
04ca1d14c1
|
@ -766,7 +766,8 @@ and day is current time)"
|
||||||
(flet ((credentials-filename ()
|
(flet ((credentials-filename ()
|
||||||
(handler-bind ((error
|
(handler-bind ((error
|
||||||
(lambda (e)
|
(lambda (e)
|
||||||
(invoke-restart 'res:return-home-filename e))))
|
(declare (ignore e))
|
||||||
|
(invoke-restart 'res:return-home-filename))))
|
||||||
(res:get-data-file +credentials-filename+))))
|
(res:get-data-file +credentials-filename+))))
|
||||||
(let ((resource-file (credentials-filename)))
|
(let ((resource-file (credentials-filename)))
|
||||||
(if (not (fs:file-exists-p resource-file))
|
(if (not (fs:file-exists-p resource-file))
|
||||||
|
|
Loading…
Reference in New Issue