From 04ca1d14c164c73b7cd3de652d78132334e4a0cd Mon Sep 17 00:00:00 2001
From: cage <cage-invalid@invalid>
Date: Sat, 20 Feb 2021 18:28:49 +0100
Subject: [PATCH] - fixed crash when starting the program without a
 configuration file.

---
 src/api-client.lisp | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/api-client.lisp b/src/api-client.lisp
index c787b1a..64926f2 100644
--- a/src/api-client.lisp
+++ b/src/api-client.lisp
@@ -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))