anchor.diff:                             (setf offset
                                    (1+ (jget :update--id
                                              (car result-lst)))))
  -                       (let ((i (car result-lst)))
  -                         (if (and (tg-is-message? i)
  -                                  (tg-is-our-chat? i))
  -                             (let ((msg (if (tg-is-sticker? i)
  -                                            (msgstr-tgsticker->irc i)
  -                                            (msgstr-tg->irc i))))
  -                               (handler-case
  -                                   (send-irc-message msg)
  -                                 (condition (e)
  -                                   (format
  -                                    t
  -                                    "WARNING, can not send message! Reason: ~S" e)
  -                                   (push-msg-pool msg)
  -                                   (irc-reconnect
  -                                    0
  -                                    (lambda ()
  -                                      (clear-msg-pool-f 1)))))))))
  +                       (process-tg-msg (car result-lst)))
                        result))
              (condition (e) (format t "Error: ~S!\n" e))))))
   
  
positive.code:                    first-name ": "
                     emoji emoji emoji)))
  
    (defun msgstr-tg->irc (update)
      (let ((first-name
             (jget :first--name
                   (jget :from (jget :message update))))
            (text
             (jget :text (jget :message update))))
        (concatenate 'string
                     first-name ": "
                     text)))
  
    (defun send-tg-message (str)
      (decoded-tg-request
  
negative.code: 
    (defparameter *pong* 0)
    (setf *pong* 0)
  
    (defun make-str ()
      (make-array '(0) :element-type 'character
                  :fill-pointer 0 :adjustable t))
  
    (defun correct-cljson-surrogate-pairs (wrong-string)
      (with-output-to-string (out)
  