anchor.diff:                            (progn (logging (bot-name bot)
                                             "[FATAL]Give up, Bot halt!")
                                    (bot-halt bot))))))))
  -         :name "IRC-WATCHER")))
  +         :name (format nil "IRC-WATCHER (~A)" (bot-name bot)))))
   
   (defun load-tg-hooks (hooks-lst)
     (mapcar (lambda (pair)
  
positive.code:     (setf (bot-thread-tg-loop bot)
            (sb-thread:make-thread (lambda ()
                                     (tg-getupdate-loop bot))
                                   :name "TG-LOOP"))
      (sleep 10)
      (create-watcher-f bot)
      bot))
  
negative.code:         (sb-thread:make-thread
           (lambda ()
             (read-message-loop (bot-irc-connection bot)))
           :name (format nil "IRC-READ-LOOP (~A)" (bot-name bot))))
    (if callback
        (funcall callback)))
  
  