[bknr-cvs] hans changed trunk/thirdparty/drakma/request.lisp

[BKNR Commits]

Revision: 4569
Author: hans
URL: http://bknr.net/trac/changeset/4569

Improved fix for the pathless uri problem.

U   trunk/thirdparty/drakma/request.lisp

Modified: trunk/thirdparty/drakma/request.lisp
===================================================================
--- trunk/thirdparty/drakma/request.lisp	2010-07-10 09:36:48 UTC (rev 4568)
+++ trunk/thirdparty/drakma/request.lisp	2010-07-10 10:00:21 UTC (rev 4569)
@@ -533,8 +533,10 @@
                                (render-uri (cond ((and proxy
                                                        (null stream)
                                                        (not proxying-https-p)) uri)
-                                                 (t (uri (or (uri-path uri)
-                                                             "/"))))
+                                                 (t (make-instance 'uri
+                                                                   :path (or (uri-path uri) "/")
+                                                                   :query (uri-query uri)
+                                                                   :fragment (uri-fragment uri))))
                                            nil)
                                (string-upcase protocol))
               (write-header "Host" "~A~@[:~A~]" (uri-host uri) (non-default-port uri))