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

[BKNR Commits]

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