anchor.diff:  (defvar *log-out* *standard-output*)
   (load "./utils.lisp")
   
  -(defparameter *irc-channel* "#MidyMidymc")
  -
  -(defparameter *tg-auth-str*
  -  (with-open-file (stream "./account_tg")
  -    (read-line stream)))
  -
  -;;(defparameter *tg-chat-id* -122773250)
  -(defparameter *tg-chat-id* -1001067573593)
  -(defparameter *tg-bot-id* 258812230)
  -
  -(defparameter *irc-connection* nil)
  -(defvar *ping-semaphore* (sb-thread:make-semaphore))
  -(defparameter *irc-read-loop* nil)
  -(defvar *tg-message-sender*)
  +(defstruct bot
  +  irc-name
  +  irc-passwd
  +  irc-channel
  +  irc-connection
  +  irc-ping-semaphore
  +  irc-message-pool-head
  +  irc-message-pool-tail
  +  irc-message-pool-lock
  +  irc-reconnect-counter
  +
  +  tg-bot-id
  +  tg-bot-authstr
  +  tg-chat-id
  +
  +  thread-irc-read-loop
  +  thread-irc-watcher
  +  thread-tg-loop)
  +
  +
  +;; (defparameter *irc-channel* "#MidyMidymc")
  +
  +;; (defparameter *tg-auth-str*
  +;;   (with-open-file (stream "./account_tg")
  +;;     (read-line stream)))
  +
  +;; (defparameter *tg-chat-id* -1001067573593)
  +;; (defparameter *tg-bot-id* 258812230)
  +
  +;; (defparameter *irc-connection* nil)
  +;; (defvar *ping-semaphore* (sb-thread:make-semaphore))
  +;; (defparameter *irc-read-loop* nil)
  +;; (defvar *tg-message-sender*)
   
   (defun msg-user (msg)
     (source msg))
  
positive.code:   (if (jget :reply--to--message
              (jget :message update)) t nil))
  
  (defun tg-is-our-chat? (update)
    (= *tg-chat-id*
       (jget :id (jget :chat (jget :message update)))))
  
  (defun tg-is-photo? (update)
  
negative.code:                          (setf offset
                                 (1+ (jget :update--id
                                           (car result-lst)))))
                       (process-tg-msg bot (car result-lst)))
                     result))
           (condition (e)
             (progn (logging "TG-LOOP in trouble: ~S!" e)
  