anchor.diff:  
     thread-irc-read-loop
     thread-irc-watcher
  -  thread-tg-loop)
  +  thread-tg-loop
  +  tg-loop-update-time
  +  thread-tg-watcher)
   
   (defun msg-user (msg)
     (source msg))
  
positive.code:                    "https://api.telegram.org/"
                     (bot-tg-bot-authstr bot) "/"
                     method-name)
        ;; :connection-timeout 100
        :method http-method
        :content-type "application/json"
        :content (if parameters
  
negative.code:   "Need a `overheat' protection"
    (let ((offset 0))
      (loop
         (setf (bot-tg-loop-update-time bot) (get-universal-time))
         (handler-case
             (let* ((response (decoded-tg-request
                               bot
                               "getUpdates"
                               `(("offset" . ,offset)
                                 ("timeout" . ,timeout))))
                    (result (tg-sort-result
                             (jget :result response))))
               (mapl (lambda (result-lst)
  