anchor.diff:        (write-char (code-char 3) out)
         (write-char (code-char #xF) out))))
   
  +(defun check-tg-hooks (bot text-lst)
  +  (let* ((hooks-lst (bot-tg-hooks-lst bot))
  +         (hook (dolist (h hooks-lst)
  +                 (if (cl-ppcre:all-matches (car h) (car text-lst))
  +                     (return (cdr h))))))
  +    (if hook (funcall hook (car text-lst)))))
  +
   (defun process-tg-msg (bot update)
     (if (tg-is-message? update) ; don't care about other data
         ;; one-line: reply, photo, file, sticker
  
positive.code:                                  (bot-halt bot))))))))
           :name "IRC-WATCHER")))
  
  (defun bot-load-conf (config)
    (let* ((irc-conf (jget :irc config))
           (tg-conf (jget :tg config))
  
negative.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
                      :tg-hooks-lst (load-tg-hooks
                                     (jget :hooks tg-conf)))))
      (init-bot-irc-msg-pool bot)
      bot))
  
  