1
0
Fork 0

- 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.
This commit is contained in:
cage 2020-09-26 20:39:04 +02:00
parent 2f13acdc7f
commit 1bf02d1fda
1 changed files with 4 additions and 1 deletions

View File

@ -692,7 +692,10 @@ the latest 15 mentions)."
(defun update-mentions-folder (&key (delete-mentions-on-server t)) (defun update-mentions-folder (&key (delete-mentions-on-server t))
(when-let* ((all-mentions (all-mentions)) (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))))) (expand-status-tree (tooter:status mention)))))
(event (make-instance 'program-events:save-timeline-in-db-event (event (make-instance 'program-events:save-timeline-in-db-event
:payload trees :payload trees