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

[BKNR Commits]

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

Do not send the fragment in the HTTP request (http://tools.ietf.org/html/rfc3986#section-4.3)

U   trunk/thirdparty/drakma/request.lisp

Modified: trunk/thirdparty/drakma/request.lisp
===================================================================
--- trunk/thirdparty/drakma/request.lisp	2010-07-10 10:00:21 UTC (rev 4569)
+++ trunk/thirdparty/drakma/request.lisp	2010-07-10 10:08:53 UTC (rev 4570)
@@ -535,8 +535,7 @@
                                                        (not proxying-https-p)) uri)
                                                  (t (make-instance 'uri
                                                                    :path (or (uri-path uri) "/")
-                                                                   :query (uri-query uri)
-                                                                   :fragment (uri-fragment uri))))
+                                                                   :query (uri-query uri))))
                                            nil)
                                (string-upcase protocol))
               (write-header "Host" "~A~@[:~A~]" (uri-host uri) (non-default-port uri))