Skip to content
Browse files

prevent encoding of encoded parameters; This prevents cl-oauth from w…

…orking..
  • Loading branch information...
1 parent 6dc3bec commit 34b1471ddd4ab33f5036aa20ebdcf60bd6e1dea1 @fons committed
Showing with 9 additions and 5 deletions.
  1. +9 −5 request.lisp
View
14 request.lisp
@@ -569,11 +569,15 @@ only available on CCL 1.2 and later."
(comm:attach-ssl raw-http-stream :ssl-side :client)
#-:lispworks
(setq http-stream (wrap-stream (make-ssl-stream raw-http-stream))))
- (when-let (all-get-parameters
- (append (dissect-query (uri-query uri))
- (and (not parameters-used-p) parameters)))
- (setf (uri-query uri)
- (alist-to-url-encoded-string all-get-parameters external-format-out)))
+
+ (when (and (not parameters-used-p)
+ parameters)
+ (when-let (all-get-parameters
+ (append (dissect-query (uri-query uri))
+ (and (not parameters-used-p) parameters)))
+ (setf (uri-query uri)
+ (alist-to-url-encoded-string all-get-parameters external-format-out))))
+
(when (eq method :options*)
;; special pseudo-method
(setf method :options

2 comments on commit 34b1471

@hanshuebner

I would like to merge this, but can you please fix the indentation and spacing in your change? Thanks!

@fons
Owner

no need for this as cl-oauth can use the :parameters in drakma..

Please sign in to comment.
Something went wrong with that request. Please try again.