- used a better default for slot 'local-path' to prevent crash when 'sexp->links' is called with an empty string as local-path argument.

2022-12-26 16:41:50 +01:00 · 2022-12-26 16:41:50 +01:00 · 432045fc52
parent 62d2a589b0
commit 432045fc52
1 changed files with 1 additions and 1 deletions
--- 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)))