anchor.diff:  
   (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)))
  +  (format s "~a=~s" (url-encode (car param)) (url-encode (cdr param))))
   
   (defun create-authorization-header (parameters)
     ""
  
positive.code: 
  (defconstant +unix-epoch-difference+  (encode-universal-time 0 0 0 1 1 1970 0))
  
  (defvar *oauth-consumer-key* NIL)
  (defvar *oauth-consumer-secret* NIL)
  (defvar *oauth-token* NIL)
  
negative.code:                    (t (format out "%~2,'0x" (char-code char)))))))
  
  (defun hmac (string keystring)
    (let ((hmac (ironclad:make-hmac (flexi-streams:string-to-octets keystring :external-format *external-format*) :SHA1)))
      (ironclad:update-hmac hmac (flexi-streams:string-to-octets string :external-format *external-format*))
      (base64:usb8-array-to-base64-string
       (ironclad:hmac-digest hmac))))
  
  