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:                  :server-name server-name
                   :schema (if secure "https" "http")))
  
  (defun url (app api)
    (format nil "~A://~A~A"
            (app-schema app)
            (app-server-name app)
            api))
  
  (defun register-app (app)
    (ensure-config-directory)
  
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
  