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