anchor.diff:  
   (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")))))
  +          (url app "/oauth/authorize"
  +               `(("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
  
positive.code: (defpackage :mastodon.base
    (:use :cl)
    (:export :make-app
             :url
             :register-app
             :get-authorization-uri
             :init-access-token-with-code
             :init-access-token-with-password
             :api-get
             :api-post))
  (in-package :mastodon.base)
  
  (defstruct access-token
  
negative.code:          ("username" . ,username)
           ("password" . ,password)))))
  
  (defun http-get (app api &optional query)
    (jojo:parse
     (dex:get (url app api query)
              :headers `(("Authorization" .
                          ,(format nil "Bearer ~A"
                                   (access-token-value (app-access-token app))))))))
  