anchor.diff:                (declare (ignore msg))
                 (sb-thread:signal-semaphore
                  *ping-semaphore*)))
  -  (format *stdout* "ACTIVATE IRC-READ-LOOP~%")
  +  (logging "ACTIVATE IRC-READ-LOOP")
     (setf *irc-read-loop*
           (sb-thread:make-thread
            (lambda ()
  
positive.code:                      (process-tg-msg (car result-lst)))
                     result))
           (condition (e)
             (progn (format *stdout*
                            "TG-LOOP in trouble: ~S!~%" e)
                    ;; prevent loop overheat
                    (sleep 2)))))))
  
  
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
  