anchor.diff:  
   According to spec https://dev.twitter.com/docs/auth/implementing-sign-twitter"
     (let ((data (oauth/request-token callback-url)))
  -    (setf *oauth-token* (cdr (assoc :oauth-token data))
  -          *oauth-token-secret* (cdr (assoc :oauth-token-secret data)))
  -    (format NIL "~a?oauth_token=~a" *oauth/authenticate* *oauth-token*)))
  +    (setf *oauth-access-token* (cdr (assoc :oauth-token data))
  +          *oauth-access-secret* (cdr (assoc :oauth-token-secret data)))
  +    (format NIL "~a?oauth_token=~a" *oauth/authenticate* *oauth-access-token*)))
   
   (defun oauth/authorize ()
     "Initiate the authentication through the PIN mechanism.
  
positive.code:         (push #'dispatcher (symbol-value (ht-symb "*DISPATCH-TABLE*")))
          (oauth/authenticate (format NIL "http://localhost:~d/callback" *server-port*))))))
  
  (defun initiate-authentication (&key (method :PIN) (consumer-key *oauth-consumer-key*) (consumer-secret *oauth-consumer-secret*))
    "Starts the authentication process and returns an URL that the user has to visit.
  METHOD can be one of :PIN :SERVER or a string designating a callback URL.
  See OAUTH/AUTHORIZE, INITIATE-SERVER-AUTHENTICATION and OAUTH/AUTHENTICATE respectively."
    (setf *oauth-consumer-key* consumer-key
          *oauth-consumer-secret* consumer-secret
          *oauth-token* NIL
          *oauth-token-secret* NIL)
    (case method
      (:PIN (oauth/authorize))
      (:SERVER (initiate-server-authentication))
  
negative.code: 
  According to spec https://dev.twitter.com/docs/auth/pin-based-authorization"
    (let ((data (pin-request-token)))
      (setf *oauth-access-token* (cdr (assoc :oauth-token data))
            *oauth-access-secret* (cdr (assoc :oauth-token-secret data)))
      (format NIL "~a?oauth_token=~a" *oauth/authorize* *oauth-access-token*)))
  
  (defun initiate-server-authentication ()
    "Initiate the authentication through the server mechanism.
  