anchor.diff:  (defun edit-message-caption (b chat-id message-id inline-message-id &key caption reply-markup)
     "https://core.telegram.org/bots/api#editmessagecaption"
     (let ((options
  -         (list 
  +         (list
             (cons :chat_id chat-id)
             (cons :message_id message-id)
             (cons :inline_message_id inline-message-id))))
  
positive.code: (defun send-message (b chat-id text &key parse-mode disable-web-page-preview disable-notification reply)
    "https://core.telegram.org/bots/api#sendmessage"
    (let ((options
           (list 
            (cons :chat_id chat-id)
            (cons :text text))))
         (when parse-mode (nconc options `((:parse_mode . ,parse-mode))))
  
negative.code:           (sb-mop:class-slots
             (class-of obj))))
  
  (defun make-request (b name options &key (streamp nil))
    "Perform HTTP request to 'name API method with 'options JSON-encoded object."
    (drakma:http-request
     (concatenate 'string (endpoint b) name)
     :method :post
     :want-stream streamp
     :content-type "application/json"
     :content (json:encode-json-alist-to-string options)))
  
  