anchor.diff:                   :body (first result) :status (second result) :headers (third result)
                    :url request-url :method method :parameters parameters :sent-headers headers)))))
   
  -(defun callback-request-token (callback)
  +(defun request-token (callback)
     "Query for a request token using the specified callback.
   Returns an ALIST containing :OAUTH-TOKEN, :OAUTH-TOKEN-SECRET and 
   :OAUTH-CALLBACK-CONFIRMED, the first two being strings and the last a boolean.
  
positive.code: (defun parse-boolean (value)
    (when (string= value "true") T))
  
  (defun oauth-response->alist (body &optional spec)
    "Turn an oauth-response into an ALIST."
    (mapcar #'(lambda (assignment)
                (let* ((pair (split-sequence #\= assignment))
                       (key (intern (cl-ppcre:regex-replace-all "_" (string-upcase (car pair)) "-")))
                       (val (cdr pair))
                       (parser (cdr (assoc key spec))))
                  (cons key (if parser (funcall parser val) val))))
            (split-sequence #\& body)))
  
negative.code: (defvar *oauth/authenticate* "https://api.twitter.com/oauth/authenticate")
  (defvar *oauth/authorize* "https://api.twitter.com/oauth/authorize")
  (defvar *oauth/access-token* "https://api.twitter.com/oauth/access_token")
  (defvar *server-port* 8989)
  
  (define-condition oauth-error (error) ())
  
  