anchor.diff:  (defvar *server-port* 8989)
   
   (defun oauth-reset ()
  -  (setf *oauth-consumer-key* NIL
  -        *oauth-consumer-secret* NIL
  -        *oauth-token* NIL
  -        *oauth-token-secret* NIL))
  +  (setf *oauth-api-key* NIL
  +        *oauth-api-secret* NIL
  +        *oauth-access-token* NIL
  +        *oauth-access-secret* NIL))
   
   (define-condition oauth-error (error) ())
   
  
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: 
  (in-package #:org.tymoonnext.chirp)
  
  (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")
  