anchor.diff:    (tg-bot-id nil :type integer)
     (tg-bot-authstr "" :type string)
     (tg-chat-id nil :type integer)
  +  (tg-hooks-lst '())
   
     thread-irc-read-loop
     thread-irc-watcher
  
positive.code:                     :tg-bot-id (jget :bot-id tg-conf)
                      :tg-bot-authstr (jget :bot-token tg-conf)
                      :tg-chat-id (jget :chat-id tg-conf)
                      :irc-reconnect-counter 0)))
      (init-bot-irc-msg-pool bot)
      bot))
  
  
negative.code:                                  (bot-halt bot))))))))
           :name "IRC-WATCHER")))
  
  (defun load-tg-hooks (hooks-lst)
    (mapcar (lambda (pair)
              (cons (car pair)
                    (if (eq 'lambda (cadr pair))
                        (eval (cdr pair))
                        (error (format *log-out*
                                       "loag-tg-hooks ERROR: Not lambda: ~A~%"
                                       (cdr pair))))))
            hooks-lst))
  
  (defun bot-load-conf (config)
    (let* ((irc-conf (jget :irc config))
           (tg-conf (jget :tg config))
  