anchor.diff:           (url (with-input-from-string
                     (stream (upload-binary-file img-vector))
                   (read-line stream)))
  -         (caption (jget :caption (jget :message update))))
  +         (caption (jget :caption (tg-get-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)))
  +                                 (tg-get-message update)))
            (* 600 1024))
         "[ image > 600KB ]"
         (let* ((img-vector
  
positive.code: 
  (defun tg-sender-first-name (update)
    (jget :first--name
          (jget :from
                (jget :message update))))
  
  (defun tg-sender-last-name (update)
    (jget :last--name
          (jget :from
                (jget :message update))))
  
  (defun tg-sender-username (update)
    (jget :username
          (jget :from (jget :message update))))
  
  (defun tg-sender-name (update)
    (let ((username (tg-sender-username update))
  
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 ]")))
  