anchor.diff:           ("password" . ,password)))))
   
   (defun api-get (app api)
  -  (let ((plist
  -         (jojo:parse
  -          (dex:get (url app api)
  -                   :headers `(("Authorization" .
  -                               ,(format nil "Bearer ~A"
  -                                        (access-token-value (app-access-token app)))))))))
  -    plist))
  +  (jojo:parse
  +   (dex:get (url app api)
  +            :headers `(("Authorization" .
  +                        ,(format nil "Bearer ~A"
  +                                 (access-token-value (app-access-token app))))))))
  +
  +(defun api-post (app api content)
  +  (jojo:parse
  +   (dex:post (url app api)
  +             :headers `(("Authorization" .
  +                         ,(format nil "Bearer ~A"
  +                                  (access-token-value (app-access-token app)))))
  +             :content content)))
   
   (defun get-account (app)
     (let ((plist (api-get app (format nil "/api/v1/accounts/~A" (app-id app)))))
  
positive.code:   (let ((plist (api-get app (format nil "/api/v1/accounts/verify_credentials"))))
      (apply #'make-instance '<account> plist)))
  
  
  
  
negative.code: - GET /api/v1/statuses/:id/card
  - GET /api/v1/statuses/:id/reblogged_by
  - GET /api/v1/statuses/:id/favourited_by
  * POST /api/v1/statuses
  - DELETE /api/v1/statuses/:id
  - POST /api/v1/statuses/:id/reblog
  - POST /api/v1/statuses/:id/unreblog
  