From 2e4e37519636634465ca66907c231715efd9147d Mon Sep 17 00:00:00 2001 From: eta Date: Fri, 10 Jul 2020 20:36:55 +0100 Subject: [PATCH] handle missing subject in group metadata --- stuff.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/stuff.lisp b/stuff.lisp index 451024f..f9e0c0c 100644 --- a/stuff.lisp +++ b/stuff.lisp @@ -803,7 +803,7 @@ Returns three values: avatar data (as two values), and a generalized boolean spe (delete-members-stmt "DELETE FROM user_chat_members WHERE chat_id = ?") (insert-member-stmt "INSERT INTO user_chat_members (chat_id, wa_jid, resource, affiliation) VALUES (?, ?, ?, ?)")) (with-transaction - (bind-parameters update-subject-stmt (1 (whatscl::aval :subject data)) cid) + (bind-parameters update-subject-stmt (1 (or (whatscl::cassoc :subject data) "unnamed group")) cid) (sqlite:step-statement update-subject-stmt) (sqlite:step-statement delete-members-stmt) (loop