anchor.diff:            (if (not (and (>= c1 #xD800)
                           (<= c1 #xDBFF)))
                 (write-char char1 out)
  -              (progn
  +              (block nil
                   (if (>= (1+ i) len)
  -                    (error "Unfinished input")
  +                    (progn
  +                      (logging "Corrector: invalid input, A8BSP")
  +                      (return "[Invalid JSON, code: LXEA6FD]"))
                       (incf i))
                   (let ((c2 (char-code (aref wrong-string i))))
                     (write-char
  
positive.code: (defvar *irc-reconnect-counter* 0)
  
  (defun creat-watcher ()
    (format *stdout* "Create IRC watcher~%")
    (setf *irc-watcher*
          (sb-thread:make-thread
           (lambda ()
             (loop
                (sleep 60)
                (format *stdout* "Checking IRC Connection ...")
                (if (irc-check-connection)
                    (progn
                      (format *stdout* "OK!~%")
                      (format *stdout* "Trying to clear Msg Pool~%")
                      (clear-msg-pool-f)
                      (setf *irc-reconnect-counter* 0))
                    (progn
                      (format *stdout*
                              "FAILED! RECONNECTING!~%")
                      (incf *irc-reconnect-counter*)
                      (if (> 20 *irc-reconnect-counter*)
                          (handler-case (progn (irc-reconnect)
                                               (clear-msg-pool-f))
                            (condition (e)
                              (format *stdout*
                                      "Having Trouble: ~S~%"
                                      e)))
                          (progn (format *stdout*
                                         "~%Give up, Bot halt!~%")
                                 (bot-halt)))))))
           :name "IRC-WATCHER")))
  
  (defun bot-start ()
    (irc-reconnect)
    (format *stdout* "Creat TG LOOP~%")
    (setf *tg-loop* (sb-thread:make-thread #'tg-getupdate-loop
                                           :name "TG-LOOP"))
    (sleep 10)
  
negative.code:               (declare (ignore msg))
                (sb-thread:signal-semaphore
                 *ping-semaphore*)))
    (logging "ACTIVATE IRC-READ-LOOP")
    (setf *irc-read-loop*
          (sb-thread:make-thread
           (lambda ()
  