anchor.diff:  (defun answer-callback-query (b callback-query-id &key text show-alert)
     "https://core.telegram.org/bots/api#answercallbackquery"
     (let ((options
  -         (list 
  +         (list
             (cons :callback_query_id callback-query-id))))
          (when text (nconc options `((:text . ,text))))
          (when show-alert (nconc options `((:show_alert . ,show-alert))))
  
positive.code: (defmacro with-package (package &rest body)
   `(let ((json:*json-symbols-package* ,package)) ,@body))
  
  (defmacro decode (obj)
   `(json:with-decoder-simple-clos-semantics
     (json:decode-json ,obj)))
  
  (define-condition request-error (error)
     ((what :initarg :what :reader what)))
  
negative.code: (defun send-photo (b chat-id photo &key caption disable-notification reply reply-markup)
    "https://core.telegram.org/bots/api#sendphoto"
    (let ((options
           (list
            (cons :chat_id chat-id)
            (cons :photo photo))))
         (when caption (nconc options `((:caption . ,caption))))
  