anchor.diff:                       (if (and (tg-is-message? i)
                                 (tg-is-our-chat? i))
                            (send-irc-message
  -                          (msgstr-tg->irc i)))))
  +                          (if (tg-is-sticker? i)
  +                              (msgstr-tgsticker->irc i)
  +                              (msgstr-tg->irc i))))))
                    result)))))
   
  -  (defun correct-cljson-surrogate-pairs (wrong-string)
  -    (with-output-to-string (out)
  -      (let ((len (length wrong-string)))
  -        (dotimes (i len)
  -          (let* ((char1 (aref wrong-string i))
  -                 (c1 (char-code char1)))
  -            (if (not (and (>= c1 #xD800)
  -                          (<= c1 #xDBFF)))
  -                (write-char char1 out)
  -                (progn
  -                  (if (>= (1+ i) len)
  -                      (error "Unfinished input")
  -                      (incf i))
  -                  (let ((c2 (char-code (aref wrong-string i))))
  -                    (write-char
  -                     (code-char
  -                      (+ #x10000
  -                         (ash (logand #x03FF c1) 10)
  -                         (logand #x03FF c2)))
  -                     out)))))))))
     )
   ;;;;------------------------------------------------
  -
  -(defparameter *tg-loop* nil)
  -(setf *tg-loop* (sb-thread:make-thread #'tg-getupdate-loop))
   
   (progn
     (setf *irc-connection*
  
positive.code: (ql:quickload 'cl-irc)
  (ql:quickload 'drakma)
  (ql:quickload 'cl-json)
  (ql:quickload 'flexi-streams)
  
  (defpackage :midymidybot
    (:use :cl :cl-user :cl-irc :irc :drakma :json))
  
negative.code:                (msgstr-irc->tg msg))))
    (start-background-message-handler *irc-connection*))
  
  (defparameter *tg-loop* nil)
  (setf *tg-loop* (sb-thread:make-thread #'tg-getupdate-loop))
  
  
  