Permalink
Browse files

Only map code-char over the body if it's not a string.

  • Loading branch information...
sellout committed Mar 24, 2011
1 parent a4755f0 commit 432b250e9ef476123a0efd2e1765d5b5b68a323c
Showing with 3 additions and 1 deletion.
  1. +3 −1 src/core/consumer.lisp
View
@@ -75,7 +75,9 @@ it has query params already they are added onto it."
:additional-headers additional-headers
:drakma-args drakma-args)
(if (eql status 200)
- (let* ((response (query-string->alist (map 'string #'code-char body)))
+ (let* ((response (query-string->alist (typecase body
+ (string body)
+ (t (map 'string #'code-char body)))))
(key (cdr (assoc "oauth_token" response :test #'equal)))
(secret (cdr (assoc "oauth_token_secret" response :test #'equal)))
(user-data (set-difference response '("oauth_token" "oauth_token_secret")

0 comments on commit 432b250

Please sign in to comment.