anchor.diff:    (jget :id
           (jget :from
                 (jget :reply--to--message
  -                    (jget :message update)))))
  +                    (tg-get-message update)))))
   
   (defun tg-update-repliee-first-name (update)
     (jget :first--name
           (jget :from
                 (jget :reply--to--message
  -                    (jget :message update)))))
  +                    (tg-get-message update)))))
   
   (defun tg-update-repliee-username (update)
     (jget :username
           (jget :from
                 (jget :reply--to--message
  -                    (jget :message update)))))
  +                    (tg-get-message update)))))
   
   (defun msgstr-tgsticker->irc (update)
     (let ((emoji
            (jget :emoji
                  (jget :sticker
  -                     (jget :message update)))))
  +                     (tg-get-message update)))))
       (concatenate 'string
                    "[ Sticker: " emoji " ]")))
   
  
positive.code:          (url (with-input-from-string
                    (stream (upload-binary-file img-vector))
                  (read-line stream)))
           (caption (jget :caption (jget :message update))))
      (concatenate 'string
                   "[ " url " ] " (if caption caption ""))))
  
  (defun msgstr-tgimageasfile->irc (bot update)
    ;; check sieze
    (if (> (jget :file--size (jget :document
                                   (jget :message update)))
           (* 600 1024))
        "[ image > 600KB ]"
        (let* ((img-vector
  
negative.code:              "[ERROR]process-tg-msg: trouble on uploading file: ~A"
               e)))
          (setf result
                (append `(,edited ,reply ,photo ,file ,sticker)
                        text-lst))
          (if (not (or reply photo file sticker text-lst))
              (setf result `("[ other media ]")))
  