Revision: 4568 Author: hans URL: http://bknr.net/trac/changeset/4568
Fix path-less URI fetching.
U trunk/thirdparty/drakma/request.lisp
Modified: trunk/thirdparty/drakma/request.lisp =================================================================== --- trunk/thirdparty/drakma/request.lisp 2010-07-09 09:44:23 UTC (rev 4567) +++ trunk/thirdparty/drakma/request.lisp 2010-07-10 09:36:48 UTC (rev 4568) @@ -533,12 +533,8 @@ (render-uri (cond ((and proxy (null stream) (not proxying-https-p)) uri) - (t (copy-uri uri - :scheme nil - :host nil - :port nil - :parsed-path nil - :plist nil))) + (t (uri (or (uri-path uri) + "/")))) nil) (string-upcase protocol)) (write-header "Host" "~A~@[:~A~]" (uri-host uri) (non-default-port uri))