anchor.diff:                 reply-to-text)))
         (concatenate 'string
                      (tg-update-repliee-first-name update)
  +                   ": "
                      "[ Re: " reply-to-text-cut " ]"))))
   
   (defun send-tg-message (str)
  
positive.code:          (url (with-input-from-string
                    (stream (upload-binary-file img-vector))
                  (read-line stream)))
           (first-name
            (jget :first--name
                  (jget :from (jget :message update)))))
      (concatenate 'string
                   first-name ": "
                   "[ " url " ]")))
  
  (defun msgstr-tgreply->irc (update)
    "Transform only reply refer to irc, not text"
    (let* ((too-long     40)
           (dummy-update `(,(cons
                             :message
                             (jget :message update))))
           (photo
            (if (tg-is-photo? dummy-update)
                "[ photo ]" nil))
  
negative.code:           (if (tg-is-sticker? dummy-update)
                (msgstr-tgsticker->irc dummy-update)
                nil))
           (caption (jget :caption
                          (jget :message dummy-update)))
           (text (jget :text
                       (jget :message dummy-update)))
           (reply-to-text
            (remove-newline
             (with-output-to-string (out)
               (if photo (write-line photo out))
               (if file (write-line file out))
               (if caption (write-line caption out))
               (if sticker (write-line sticker out))
               (if text (write-string text out))
               out))))
      (if (= (tg-update-repliee-id update)
             *tg-bot-id*)
          (setf reply-to-text
                (concatenate 'string
                             "(IRC) "
                             reply-to-text))
          (setf reply-to-text
                (concatenate
                 'string
  