From d6a8ac8f3347d364f02f4e17d179f6ccf1ddddb7 Mon Sep 17 00:00:00 2001 From: eta Date: Sat, 30 Jan 2021 18:17:33 +0000 Subject: [PATCH] minor logging fixes --- message.lisp | 2 +- stuff.lisp | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/message.lisp b/message.lisp index 9d2fb89..9bf31f7 100644 --- a/message.lisp +++ b/message.lisp @@ -74,7 +74,7 @@ FIXME: the above behaviour is a bit meh." ;; whee fallback go brrr participant-localpart))) (values wx-localpart from-resource)) - (error "Couldn't find or create group chat for ~A" chat-id))))))) + (error "Couldn't find or create group chat for ~A" wx-localpart))))))) (defmacro with-new-xmpp-message-context ((comp jid msg &optional conn) &body body) "Evaluate FORMS, binding NEW-XMPP-MESSAGE (lambda-list (BODY &KEY OOB-URL SYSTEM-GENERATED)) to a function that returns an instance of the XMPP-MESSAGE class, using information contained in the message MSG received for the bridge user JID." diff --git a/stuff.lisp b/stuff.lisp index 7c84d1b..bbc0b25 100644 --- a/stuff.lisp +++ b/stuff.lisp @@ -596,7 +596,7 @@ Returns three values: avatar data (as two values), and a generalized boolean spe (handle-wa-contact-presence-subscriptions comp jid wx-localpart)) (return-from add-wa-chat)) (unless (uiop:string-prefix-p "g" wx-localpart) - (warn "Interesting localpart pased to ADD-WA-CHAT: ~A" wx-localpart) + (warn "Interesting localpart passed to ADD-WA-CHAT: ~A" wx-localpart) (return-from add-wa-chat)) (assert uid () "No user ID for ~A!" jid) (unless (get-user-chat-id uid wx-localpart)