anchor.diff:    "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)))
  +  (let ((data (oauth/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*)))
  
positive.code:   (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)))
           drakma-params))
  
  (defun oauth/request-token (callback)
  
negative.code:   (assert (not (null *oauth-version*)) (*oauth-version*)
            'oauth-parameter-missing :parameter '*oauth-version*)
    (let* ((oauth-parameters (append
                              oauth-parameters
                              `(("oauth_consumer_key" . ,*oauth-consumer-key*)
                                ("oauth_nonce" . ,(generate-nonce))
                                ("oauth_signature_method" . ,*oauth-signature-method*)
  