anchor.diff:  (defvar *oauth/authenticate* "https://api.twitter.com/oauth/authenticate")
   (defvar *oauth/authorize* "https://api.twitter.com/oauth/authorize")
   (defvar *oauth/access-token* "https://api.twitter.com/oauth/access_token")
  +(defvar *server-port* 8989)
   
   (define-condition oauth-error (error) ())
   
  
positive.code:                               ("oauth_nonce" . ,(generate-nonce))
                                ("oauth_signature_method" . ,*oauth-signature-method*)
                                ("oauth_timestamp" . ,(write-to-string (get-unix-time)))
                                ("oauth_version" . ,*oauth-version*))))
           (oauth-parameters (make-signed method request-url oauth-parameters))
           (headers `(("Authorization" . ,(create-authorization-header oauth-parameters)))))
      (let ((result (multiple-value-list (drakma:http-request
  
negative.code: (defun parse-boolean (value)
    (when (string= value "true") T))
  
  (defun to-keyword (string)
    (intern (cl-ppcre:regex-replace-all "_" (string-upcase string) "-") "KEYWORD"))
  
  (defun oauth-response->alist (body &optional spec)
    "Turn an oauth-response into an ALIST."
    (mapcar #'(lambda (assignment)
                (let* ((pair (split-sequence #\= assignment))
                       (key (to-keyword (first pair)))
                       (val (second pair))
                       (parser (cdr (assoc key spec))))
                  (cons key (if parser (funcall parser val) val))))
            (split-sequence #\& body)))
  