anchor.diff:          (dolist (i result)
             (handler-case
                 (if i (send-irc-message
  +                     bot
                        (concatenate 'string
                                     (tg-sender-first-name update)
                                     ": " i)))
  
positive.code:   (if (jget :reply--to--message
              (jget :message update)) t nil))
  
  (defun tg-is-our-chat? (update)
    (= *tg-chat-id*
       (jget :id (jget :chat (jget :message update)))))
  
  (defun tg-is-photo? (update)
  
negative.code:     (concatenate 'string
                   emoji emoji emoji)))
  
  (defun msgstr-tgphoto->irc (bot update)
    (let* ((img-vector
            (tg-download-file
             bot
             (tg-get-file-path
              bot
              (tg-get-photo-id update))))
           (url (with-input-from-string
                    (stream (upload-binary-file img-vector))
                  (read-line stream)))
  