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:           (sb-thread:make-thread (lambda ()
                                     (tg-getupdate-loop bot))
                                   :name (format nil "TG-LOOP(~A)" (bot-name bot))))
      (setf (bot-thread-tg-watcher bot)
            (sb-thread:make-thread
             (lambda (bot)
               (loop
                  (sleep 10)
                  (let ((interval (- (get-universal-time)
                                     (bot-tg-loop-update-time bot))))
                    (if (> interval 30)
                        (progn
                          (sb-thread:terminate-thread
                           (bot-thread-tg-loop bot))
                          (setf (bot-thread-tg-loop bot)
                                (sb-thread:make-thread
                                 (lambda ()
                                   (tg-getupdate-loop bot))
                                 :name (format nil "TG-LOOP(~A)" (bot-name bot)))))))))))
      (sleep 10)
      (create-watcher-f bot)
      bot))
  