anchor.diff:                      :tg-bot-id (jget :bot-id tg-conf)
                       :tg-bot-authstr (jget :bot-token tg-conf)
                       :tg-chat-id (jget :chat-id tg-conf)
  -                    :irc-reconnect-counter 0)))
  +                    :irc-reconnect-counter 0
  +                    :tg-hooks-lst (load-tg-hooks
  +                                   (jget :hooks tg-conf)))))
       (init-bot-irc-msg-pool bot)
       bot))
   
  
positive.code:       (write-char (code-char 3) out)
        (write-char (code-char #xF) out))))
  
  (defun process-tg-msg (bot update)
    (if (tg-is-message? update) ; don't care about other data
        ;; one-line: reply, photo, file, sticker
  
negative.code:                      (bot-name bot)
                       "[ERROR]process-tg-msg: trouble of sending msg: ~A"
                       e)
                      (push-msg-pool bot i))))))
          (if text-lst (check-tg-hooks bot text-lst)))))
  
  (defun tg-sort-result (result)
    (sort result
  