anchor.diff:                              "FAILED! RECONNECTING!~%")
                       (incf *irc-reconnect-counter*)
                       (if (> 20 *irc-reconnect-counter*)
  -                        (handler-case (irc-reconnect)
  +                        (handler-case (progn (irc-reconnect)
  +                                             (clear-msg-pool-f))
                             (condition (e)
                               (format *stdout*
                                       "Having Trouble: ~S~%"
                                       e)))
                           (progn (format *stdout*
                                          "~%Give up, Bot halt!~%")
  -                               (bot-halt))))))))))
  +                               (bot-halt)))))))
  +         :name "IRC-WATCHER")))
   
   (defun bot-start ()
     (irc-reconnect)
     (format *stdout* "Creat TG LOOP~%")
  -  (setf *tg-loop* (sb-thread:make-thread #'tg-getupdate-loop))
  +  (setf *tg-loop* (sb-thread:make-thread #'tg-getupdate-loop
  +                                         :name "TG-LOOP"))
     (sleep 10)
     (creat-watcher))
  -
   
   (defun bot-halt ()
     (tryto (sb-thread:terminate-thread *tg-loop*))
  
positive.code:   (setf *irc-read-loop*
          (sb-thread:make-thread
           (lambda ()
             (read-message-loop *irc-connection*))))
    ;;(start-background-message-handler *irc-connection*)
    (if callback
        (funcall callback)))
  
negative.code:         (condition (e)
            (progn
              (format *stdout*
                      "TG->IRC: can not send message! Reason: ~S~%" e)
              (push-msg-pool msg)))))))
  
  (defun tg-getupdate-loop ()
  