anchor.diff:            (send-irc-message msg)
           (condition (e)
             (progn
  -            (format *stdout*
  -                    "TG->IRC: can not send message! Reason: ~S~%" e)
  +            (logging
  +             "TG->IRC: can not send message! Reason: ~S" e)
               (push-msg-pool msg)))))))
   
   (defun tg-getupdate-loop ()
  
positive.code: (defvar *ping-semaphore* (sb-thread:make-semaphore))
  (defparameter *irc-read-loop* nil)
  (defvar *tg-message-sender*)
  
  (defun exit ()
    (sb-ext:exit))
  
negative.code:           (if (not (and (>= c1 #xD800)
                          (<= c1 #xDBFF)))
                (write-char char1 out)
                (block nil
                  (if (>= (1+ i) len)
                      (progn
                        (logging "Corrector: invalid input, A8BSP")
                        (return "[Invalid JSON, code: LXEA6FD]"))
                      (incf i))
                  (let ((c2 (char-code (aref wrong-string i))))
                    (write-char
  