From 432045fc521053f7dfeb9df8fbd1ceb0b51a2934 Mon Sep 17 00:00:00 2001
From: cage <cage@invalid>
Date: Mon, 26 Dec 2022 16:41:50 +0100
Subject: [PATCH] - used a better default for slot 'local-path' to prevent
 crash when 'sexp->links' is called with an empty string as local-path
 argument.

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

diff --git a/src/program-events.lisp b/src/program-events.lisp
index 6da0c17..97e328a 100644
--- a/src/program-events.lisp
+++ b/src/program-events.lisp
@@ -1115,7 +1115,7 @@
     :initarg :window
     :accessor window)
    (local-path
-    :initform ""
+    :initform nil
     :initarg :local-path
     :accessor local-path)))