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))