anchor.diff:    (assert (not (null *oauth-consumer-secret*)) (*oauth-consumer-secret*)
             'oauth-parameter-missing :parameter '*oauth-consumer-secret*)
     (let ((prepared-parameters (sort (loop for (key . val) in parameters
  -                                         collect (cons (url-encode key :utf-8)
  -                                                       (url-encode val :utf-8)))
  +                                         collect (cons (url-encode key)
  +                                                       (url-encode val)))
                                      #'string< :key #'car)))
       (let ((parameter-string (format NIL "~{~/chirp::signature-format-parameter/~^&~}" prepared-parameters)))
  -      (let ((base (format NIL "~a&~a&~a" (string-upcase method) (url-encode url :utf-8) (url-encode parameter-string :utf-8)))
  -            (signing-key (format NIL "~a&~a" *oauth-consumer-secret* *oauth-token-secret*)))
  +      (let ((base (format NIL "~a&~a&~a" (string-upcase method) (url-encode url) (url-encode parameter-string)))
  +            (signing-key (format NIL "~a&~a" *oauth-consumer-secret* (or *oauth-token-secret* ""))))
           (hmac base signing-key)))))
   
   (defun make-signed (method url parameters)
  
positive.code: 
  (defun authorization-format-parameter (s param &rest rest)
    (declare (ignore rest))
    (format s "~a=\"~a\"" (url-encode (car param) :utf-8) (url-encode (cdr param) :utf-8)))
  
  (defun create-authorization-header (parameters)
    ""
  
negative.code: 
  (defconstant +unix-epoch-difference+  (encode-universal-time 0 0 0 1 1 1970 0))
  
  (defvar *external-format* :utf-8)
  (defvar *oauth-consumer-key* NIL)
  (defvar *oauth-consumer-secret* NIL)
  (defvar *oauth-token* NIL)
  