From 41a4787f1679a226a5f50dfc119c4147d7dbceff Mon Sep 17 00:00:00 2001
From: cage <cage@invalid>
Date: Thu, 24 Nov 2022 17:28:31 +0100
Subject: [PATCH] - prevented crash when calling resync-rows-db of a null
 object.

---
 src/line-oriented-window.lisp | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/src/line-oriented-window.lisp b/src/line-oriented-window.lisp
index 1a8c4b1..e2964ac 100644
--- a/src/line-oriented-window.lisp
+++ b/src/line-oriented-window.lisp
@@ -493,6 +493,10 @@ this exact quantity would go beyond the length or rows or zero."
   table in the database, if `redraw`  is not nil redraw the object, if
   possible"))
 
+(defmethod resync-rows-db ((object null) &key redraw)
+  (declare (ignore redraw))
+  t)
+
 (defun make-blocking-list-dialog-window (screen all-fields text-lines callback
                                          &optional (title (_ "Information")))
   "Draw a  window with a scrollable list of entries, pressing enter