From 1bf02d1fdae3b00ec42b05f32d7ac4268d034f7d Mon Sep 17 00:00:00 2001 From: cage Date: Sat, 26 Sep 2020 20:39:04 +0200 Subject: [PATCH] - prevented crash when updating mentions The 'status' slot in a 'mention' object can be nil, in this case expand the tree does not makes sense and should be avoided. --- src/api-client.lisp | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/src/api-client.lisp b/src/api-client.lisp index 7060cbf..c359c9e 100644 --- a/src/api-client.lisp +++ b/src/api-client.lisp @@ -692,7 +692,10 @@ the latest 15 mentions)." (defun update-mentions-folder (&key (delete-mentions-on-server t)) (when-let* ((all-mentions (all-mentions)) - (trees (flatten (loop for mention in all-mentions collect + (trees (flatten (loop + for mention in all-mentions + when (tooter:status mention) + collect (expand-status-tree (tooter:status mention))))) (event (make-instance 'program-events:save-timeline-in-db-event :payload trees