anchor.diff:      (concatenate 'string (msg-user msg) ": " (msg-body msg)))
   
     (defun send-irc-message (str)
  -    (privmsg *irc-connection* *irc-channel* str))
  +    (privmsg *irc-connection* *irc-channel*
  +             (correct-cljson-surrogate-pairs str)))
   
     (defun irc-shutdown ()
       (part *irc-connection* *irc-channel* "Bot shutdown")
  
positive.code:   (defun tg-is-message? (update)
      (jget :message update))
  
    (defun tg-is-our-chat? (update)
      (= *tg-chat-id*
         (jget :id (jget :chat (jget :message update)))))
  
    (defun msgstr-tg->irc (update)
      (let ((first-name
  
negative.code:                      (if (and (tg-is-message? i)
                                (tg-is-our-chat? i))
                           (send-irc-message
                            (if (tg-is-sticker? i)
                                (msgstr-tgsticker->irc i)
                                (msgstr-tg->irc i))))))
                   result)))))
  
    )
  ;;;;------------------------------------------------
  
  (progn
    (setf *irc-connection*
  