anchor.diff:       `(("chat_id" . ,*tg-chat-id*)
          ("text" . ,str))))
     (setf *tg-message-sender* #'send-tg-message)
  +
  +  (defun process-tg-msg (update)
  +    (let ((msg-lst
  +           (cond
  +             ((tg-is-sticker? update) `(,(msgstr-tgsticker->irc update)))
  +             ((tg-is-message? update) (msgstr-tg->irc-list update)))))
  +      (dolist (msg msg-lst)
  +        (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))))))))
   
     (defun tg-getupdate-loop ()
       "Need a `overheat' protection"
  
positive.code: 
    (defparameter *pong* 0)
    (setf *pong* 0)
  
    (defun correct-cljson-surrogate-pairs (wrong-string)
      (with-output-to-string (out)
  
negative.code:                            (setf offset
                                   (1+ (jget :update--id
                                             (car result-lst)))))
                         (process-tg-msg (car result-lst)))
                       result))
             (condition (e) (format t "Error: ~S!\n" e))))))
  
  