anchor.diff:           ("username" . ,username)
            ("password" . ,password)))))
   
  -(defun http-get (app api)
  +(defun http-get (app api &optional query)
     (jojo:parse
  -   (dex:get (url app api)
  +   (dex:get (url app api query)
               :headers `(("Authorization" .
                           ,(format nil "Bearer ~A"
                                    (access-token-value (app-access-token app))))))))
  
positive.code: 
  (defun get-authorization-uri (app)
    (format nil
            (url app (format nil "/oauth/authorize?~{~A=~A~^&~}"
                             `("client_id" ,(app-client-id app)
                               "response_type" "code"
                               "redirect_uri" "urn:ietf:wg:oauth:2.0:oob"
                               "scope" "read+write+follow")))))
  
  (flet ((f (app content)
           (let ((plist
  
negative.code: (defpackage :mastodon.base
    (:use :cl
          :mastodon.config)
    (:export :make-app
             :url
             :register-app
             :get-authorization-uri
             :init-access-token-with-code
             :init-access-token-with-password
             :http-get
             :http-post))
  (in-package :mastodon.base)
  
  (defstruct access-token
  