cage
/
tinmop
mirror of https://codeberg.org/cage/tinmop/
1
0
Fork 0
Code Issues

- 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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/api-client.lisp
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