anchor.diff:    "Need a `overheat' protection"
     (let ((offset 0))
       (loop
  +       (setf (bot-tg-loop-update-time bot) (get-universal-time))
          (handler-case
  -           (let* ((timeout 20)
  -                  (response (with-timeout-nil
  -                                timeout
  -                              (decoded-tg-request
  -                               bot
  -                               "getUpdates"
  -                               `(("offset" . ,offset)
  -                                 ("timeout" . ,timeout)))))
  +           (let* ((response (decoded-tg-request
  +                             bot
  +                             "getUpdates"
  +                             `(("offset" . ,offset)
  +                               ("timeout" . ,timeout))))
                     (result (tg-sort-result
                              (jget :result response))))
                (mapl (lambda (result-lst)
  
positive.code:           (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))
  
negative.code: 
    thread-irc-read-loop
    thread-irc-watcher
    thread-tg-loop
    tg-loop-update-time
    thread-tg-watcher)
  
  (defun msg-user (msg)
    (source msg))
  