Permalink
Browse files

Fix a place where we ended up with an octet vector instead of a string.

  • Loading branch information...
1 parent 0607436 commit 9dafe2919e24c8409d1844f2a331affdccb0e794 @sellout sellout committed Mar 12, 2011
Showing with 3 additions and 1 deletion.
  1. +3 −1 src/core/consumer.lisp
@@ -172,7 +172,9 @@ token. POST is recommended as request method. [6.3.1]" ; TODO 1.0a section numbe
:parameters signed-parameters
drakma-args)
(if (eql status 200)
- (let ((response (query-string->alist body)))
+ (let ((response (query-string->alist (if (stringp body)
+ body
+ (babel:octets-to-string body)))))
(flet ((field (name)
(cdr (assoc name response :test #'equal))))
(let ((key (field "oauth_token"))

0 comments on commit 9dafe29

Please sign in to comment.