From c361ecc6797562b72f064c09aea9231577f1ca49 Mon Sep 17 00:00:00 2001 From: cage Date: Sat, 5 Jun 2021 21:47:37 +0200 Subject: [PATCH] - fixed a regression that made the program crashs when adding an attachment to a post. --- src/line-oriented-window.lisp | 3 +++ 1 file changed, 3 insertions(+) diff --git a/src/line-oriented-window.lisp b/src/line-oriented-window.lisp index 6f420a1..caf84f1 100644 --- a/src/line-oriented-window.lisp +++ b/src/line-oriented-window.lisp @@ -313,6 +313,9 @@ this exact quantity would go beyond the length or rows or zero." (push new-row reversed-old-rows)) (setf rows (reverse reversed-old-rows))))) +(defmethod append-new-rows ((object row-oriented-widget) (new-rows line)) + (append-new-rows object (list new-rows))) + (defmethod map-rows ((object row-oriented-widget) (function function) &key &allow-other-keys) (mapcar function (rows object)))