anchor.diff:    (apply #'drakma:http-request request-url
            :method method :parameters parameters :want-stream T
            :additional-headers (append additional-headers
  -                                     (create-authorization-header method request-url (append parameters oauth-parameters)))
  +                                     (create-authorization-header method request-url oauth-parameters parameters))
            drakma-params))
   
   (defun oauth/request-token (callback)
  
positive.code:   "Finishes the authentication procedure by retrieving the access token.
  Sets the *OAUTH-TOKEN* and *OAUTH-TOKEN-SECRET* to their respective values."
    (setf *oauth-token* token)
    (let ((data (access-token verifier)))
      (setf *oauth-token* (cdr (assoc :oauth-token data))
            *oauth-token-secret* (cdr (assoc :oauth-token-secret data)))
      (values *oauth-token* *oauth-token-secret*)))
  
negative.code:   (apply #'request-wrapper request-url
           :method method :parameters parameters
           :additional-headers (append additional-headers
                                       (create-authorization-header method request-url oauth-parameters parameters))
           drakma-params))
  
  (defun prepare-data-parameters (parameters)
  