From bc3e7685a7b0522939b0d9476dc19825b9123ebf Mon Sep 17 00:00:00 2001
From: cage <cage-invalid@invalid>
Date: Thu, 11 Feb 2021 15:27:58 +0100
Subject: [PATCH] - prevented crash when a program to open a link is not found.

---
 src/software-configuration.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/software-configuration.lisp b/src/software-configuration.lisp
index 62f9200..ff7cb08 100644
--- a/src/software-configuration.lisp
+++ b/src/software-configuration.lisp
@@ -769,7 +769,7 @@
 (gen-simple-access (all-link-open-program) +key-open-link-helper+)
 
 (defun link-regex->program-to-use (link)
-  (let ((found (find-if (lambda (a)
+  (when-let ((found (find-if (lambda (a)
                           (cl-ppcre:scan (re a) link))
                         (config-all-link-open-program))))
     (program-name found)))