anchor.diff:  
   (defun tg-update-repliee-first-name (update)
     (jget :first--name
  +        (jget :from
  +              (jget :reply--to--message
  +                    (jget :message update)))))
  +
  +(defun tg-update-repliee-username (update)
  +  (jget :username
           (jget :from
                 (jget :reply--to--message
                       (jget :message update)))))
  
positive.code:         (setf reply-to-text
                (concatenate
                 'string
                 (tg-update-repliee-first-name update)
                 ": " reply-to-text)))
      (let ((reply-to-text-cut
             (if (> (length reply-to-text) too-long)
  
negative.code:         (jget :from
                (jget :message update))))
  
  (defun tg-sender-username (update)
    (jget :username
          (jget :from (jget :message update))))
  
  (defun msgstr-tg->irc-list (update)
    (let ((text (jget :text (jget :message update)))
          (str (make-str))
  