anchor.diff:  
   (in-package #:org.tymoonnext.chirp)
   
  -(defvar *oauth-consumer-key* NIL)
  -(defvar *oauth-consumer-secret* NIL)
  -(defvar *oauth-token* NIL)
  -(defvar *oauth-token-secret* NIL)
  +(defvar *oauth-api-key* NIL)
  +(defvar *oauth-api-secret* NIL)
  +(defvar *oauth-access-token* NIL)
  +(defvar *oauth-access-secret* NIL)
   (defvar *oauth-signature-method* "HMAC-SHA1")
   (defvar *oauth-version* "1.0")
   (defvar *oauth/request-token* "https://api.twitter.com/oauth/request_token")
  
positive.code:            body))))
  
  (defun create-authorization-header (method request-url oauth-parameters parameters)
    (assert (not (null *oauth-consumer-key*)) (*oauth-consumer-key*)
            'oauth-parameter-missing :parameter '*oauth-consumer-key*)
    (assert (not (null *oauth-signature-method*)) (*oauth-signature-method*)
            'oauth-parameter-missing :parameter '*oauth-signature-method*)
    (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*)
                                ("oauth_timestamp" . ,(write-to-string (get-unix-time)))
                                ("oauth_version" . ,*oauth-version*))
                              (when *oauth-token* `(("oauth_token" . ,*oauth-token*)))))
           (oauth-parameters (make-signed method request-url oauth-parameters parameters)))
      `(("Authorization" . ,(create-authorization-header-value oauth-parameters)))))
  
  
negative.code: 
  According to spec https://dev.twitter.com/docs/auth/implementing-sign-twitter"
    (let ((data (oauth/request-token callback-url)))
      (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.
  