anchor.diff:  
   (defun creat-watcher-f (bot)
     (logging "Create IRC watcher")
  -  (setf (bot-irc-ping-semaphore bot) (sb-thread:make-semaphore))
     (setf (bot-thread-irc-watcher bot)
           (sb-thread:make-thread
            (lambda ()
  
positive.code:     (setf (bot-tg-bot-id bot) (jget :bot-id tg-conf))
      (setf (bot-tg-bot-authstr bot) (jget :bot-token tg-conf))
      (setf (bot-tg-chat-id bot) (jget :chat-id tg-conf))
      t))
  
  (defun bot-start (config)
  
negative.code:                             (condition (e)
                                (logging "Having Trouble: ~S" e)))
                            (progn (logging "Give up, Bot halt!")
                                   (bot-halt bot))))))))
           :name "IRC-WATCHER")))
  
  (defun bot-load-conf (bot config)
  