bknr-cvs

bknr-cvs@common-lisp.net

1964 discussions

[bknr-cvs] hans changed trunk/thirdparty/hunchentoot/connection-manager.lisp
by BKNR Commits 09 Feb '09

09 Feb '09

Revision: 4205 Author: hans URL: http://bknr.net/trac/changeset/4205 Specialize method on T to silence "unused variable" warning in CCL. U trunk/thirdparty/hunchentoot/connection-manager.lisp Modified: trunk/thirdparty/hunchentoot/connection-manager.lisp =================================================================== --- trunk/thirdparty/hunchentoot/connection-manager.lisp 2009-02-09 12:13:27 UTC (rev 4204) +++ trunk/thirdparty/hunchentoot/connection-manager.lisp 2009-02-09 12:14:17 UTC (rev 4205) @@ -69,7 +69,7 @@ (defgeneric shutdown (connection-manager) (:documentation "Terminate all threads that are currently associated with the connection manager, if any.") - (:method (manager) + (:method ((manager t)) #+:lispworks (when-let (acceptor (server-acceptor (server manager))) ;; kill the main acceptor process, see LW documentation for

1 0

[bknr-cvs] hans changed trunk/thirdparty/hunchentoot/server.lisp
by BKNR Commits 09 Feb '09

09 Feb '09

Revision: 4204 Author: hans URL: http://bknr.net/trac/changeset/4204 When you don't understand DO, use LOOP U trunk/thirdparty/hunchentoot/server.lisp Modified: trunk/thirdparty/hunchentoot/server.lisp =================================================================== --- trunk/thirdparty/hunchentoot/server.lisp 2009-02-09 11:52:41 UTC (rev 4203) +++ trunk/thirdparty/hunchentoot/server.lisp 2009-02-09 12:13:27 UTC (rev 4204) @@ -395,20 +395,18 @@ (mp:process-unstop (server-acceptor server)) #-:lispworks (usocket:with-server-socket (listener (server-listen-socket server)) - (do ((new-connection-p (usocket:wait-for-input listener :timeout +new-connection-wait-time+) - (usocket:wait-for-input listener :timeout +new-connection-wait-time+))) - ((server-shutdown-p server)) - (when new-connection-p - (handler-case - (let ((client-connection (usocket:socket-accept listener))) - (when client-connection + (loop + until (server-shutdown-p server) + when (usocket:wait-for-input listener :timeout +new-connection-wait-time+) + do (handler-case + (when-let (client-connection (usocket:socket-accept listener)) (set-timeouts client-connection (server-read-timeout server) (server-write-timeout server)) (handle-incoming-connection (server-connection-manager server) - client-connection))) - ;; ignore condition - (usocket:connection-aborted-error ()))))))) + client-connection)) + ;; ignore condition + (usocket:connection-aborted-error ())))))) (defgeneric initialize-connection-stream (server stream) (:documentation "Wraps the given STREAM with all the additional

1 0

[bknr-cvs] edi changed trunk/thirdparty/hunchentoot/
by BKNR Commits 09 Feb '09

09 Feb '09

Revision: 4203 Author: edi URL: http://bknr.net/trac/changeset/4203 Some LW fixes U trunk/thirdparty/hunchentoot/connection-manager.lisp U trunk/thirdparty/hunchentoot/server.lisp Modified: trunk/thirdparty/hunchentoot/connection-manager.lisp =================================================================== --- trunk/thirdparty/hunchentoot/connection-manager.lisp 2009-02-09 11:47:33 UTC (rev 4202) +++ trunk/thirdparty/hunchentoot/connection-manager.lisp 2009-02-09 11:52:41 UTC (rev 4203) @@ -71,10 +71,10 @@ with the connection manager, if any.") (:method (manager) #+:lispworks - (when-let (listener (server-listener (server manager))) - ;; kill the main listener process, see LW documentation for + (when-let (acceptor (server-acceptor (server manager))) + ;; kill the main acceptor process, see LW documentation for ;; COMM:START-UP-SERVER - (mp:process-kill listener)))) + (mp:process-kill acceptor)))) (defclass single-threaded-connection-manager (connection-manager) () Modified: trunk/thirdparty/hunchentoot/server.lisp =================================================================== --- trunk/thirdparty/hunchentoot/server.lisp 2009-02-09 11:47:33 UTC (rev 4202) +++ trunk/thirdparty/hunchentoot/server.lisp 2009-02-09 11:52:41 UTC (rev 4203) @@ -83,7 +83,7 @@ #+:lispworks (acceptor :accessor server-acceptor :documentation "The Lisp process which accepts incoming - requests.") +requests.") #-:lispworks (listen-socket :accessor server-listen-socket :documentation "The listen socket for incoming @@ -376,7 +376,7 @@ :wait t) (when startup-condition (error startup-condition)) - (process-stop listener-process) + (mp:process-stop listener-process) (setf (server-acceptor server) listener-process)) #-:lispworks (setf (server-listen-socket server) @@ -392,7 +392,7 @@ using HANDLE-INCOMING-CONNECTION.") (:method ((server server)) #+:lispworks - (process-unstop (server-acceptor server)) + (mp:process-unstop (server-acceptor server)) #-:lispworks (usocket:with-server-socket (listener (server-listen-socket server)) (do ((new-connection-p (usocket:wait-for-input listener :timeout +new-connection-wait-time+) @@ -407,9 +407,8 @@ (server-write-timeout server)) (handle-incoming-connection (server-connection-manager server) client-connection))) - (usocket:connection-aborted-error () - ;; ignore condition - ))))))) + ;; ignore condition + (usocket:connection-aborted-error ()))))))) (defgeneric initialize-connection-stream (server stream) (:documentation "Wraps the given STREAM with all the additional

1 0

[bknr-cvs] edi changed trunk/thirdparty/hunchentoot/connection-manager.lisp
by BKNR Commits 09 Feb '09

09 Feb '09

Revision: 4202 Author: edi URL: http://bknr.net/trac/changeset/4202 Not for LispWorks U trunk/thirdparty/hunchentoot/connection-manager.lisp Modified: trunk/thirdparty/hunchentoot/connection-manager.lisp =================================================================== --- trunk/thirdparty/hunchentoot/connection-manager.lisp 2009-02-09 11:30:37 UTC (rev 4201) +++ trunk/thirdparty/hunchentoot/connection-manager.lisp 2009-02-09 11:47:33 UTC (rev 4202) @@ -127,6 +127,7 @@ nil #'process-connection (server manager) handle)) +#-:lispworks (defun client-as-string (socket) (let ((address (usocket:get-peer-address socket)) (port (usocket:get-peer-port socket)))

1 0

[bknr-cvs] edi changed trunk/thirdparty/chunga/
by BKNR Commits 09 Feb '09

09 Feb '09

Revision: 4201 Author: edi URL: http://bknr.net/trac/changeset/4201 Small doc tweaks U trunk/thirdparty/chunga/CHANGELOG.txt U trunk/thirdparty/chunga/doc/index.html Modified: trunk/thirdparty/chunga/CHANGELOG.txt =================================================================== --- trunk/thirdparty/chunga/CHANGELOG.txt 2009-02-09 11:15:17 UTC (rev 4200) +++ trunk/thirdparty/chunga/CHANGELOG.txt 2009-02-09 11:30:37 UTC (rev 4201) @@ -1,3 +1,9 @@ +Version 1.0.0 +2009-02-10 +Switched to binary streams underneath and got rid of FLEXI-STREAMS dependency +Exported (an improved version of) AS-KEYWORD +Added WITH-CHARACTER-STREAM-SEMANTICS + Version 0.4.3 2008-05-23 Cleanup, reduce some consing Modified: trunk/thirdparty/chunga/doc/index.html =================================================================== --- trunk/thirdparty/chunga/doc/index.html 2009-02-09 11:15:17 UTC (rev 4200) +++ trunk/thirdparty/chunga/doc/index.html 2009-02-09 11:30:37 UTC (rev 4201) @@ -101,7 +101,7 @@ Chunga together with this documentation can be downloaded from <a href="http://weitz.de/files/chunga.tar.gz">http://weitz.de/files/chunga.tar.gz</a>. The -current version is 0.5.0. (This version is not compatible with +current version is 1.0.0. (This version is not compatible with pre-2009 releases of <a href="http://weitz.de/hunchentoot/">Hunchentoot</a> or <a href="http://weitz.de/drakma/">Drakma</a>.) Chunga will only

1 0

[bknr-cvs] edi changed trunk/thirdparty/drakma/
by BKNR Commits 09 Feb '09

09 Feb '09

Revision: 4200 Author: edi URL: http://bknr.net/trac/changeset/4200 Some more tweaks U trunk/thirdparty/drakma/CHANGELOG.txt U trunk/thirdparty/drakma/doc/index.html U trunk/thirdparty/drakma/request.lisp Modified: trunk/thirdparty/drakma/CHANGELOG.txt =================================================================== --- trunk/thirdparty/drakma/CHANGELOG.txt 2009-02-09 11:01:48 UTC (rev 4199) +++ trunk/thirdparty/drakma/CHANGELOG.txt 2009-02-09 11:15:17 UTC (rev 4200) @@ -6,6 +6,8 @@ Be more lenient about content length (thanks to Zach Beane and "pix") Added *ALLOW-DOTLESS-COOKIE-DOMAINS-P* (thanks to Daniel Janus) Fix generation of user agent header (bug caught by Chaitanya Gupta) +Added DEADLINE parameter for CCL (thanks to Hans Hübner) +Fixed bug where READ-BODY returned NIL although TEXTP was true (thanks to Hans Hübner) Version 0.11.5 2008-03-21 Modified: trunk/thirdparty/drakma/doc/index.html =================================================================== --- trunk/thirdparty/drakma/doc/index.html 2009-02-09 11:01:48 UTC (rev 4199) +++ trunk/thirdparty/drakma/doc/index.html 2009-02-09 11:15:17 UTC (rev 4200) @@ -724,7 +724,7 @@  - <table border=0><tr><td colspan=4 valign=top>[Function]</td></tr><tr><td valign=top style="white-space:nowrap"><a class=none name='http-request'>http-request</a> </td><td valign=top><a class=none href="#uri">uri</a> </td><td valign=top><tt>&key</tt> </td><td><a class=none href="#protocol">protocol</a> <a class=none href="#method">method</a> <a class=none href="#force-ssl">force-ssl</a> <a class=none href="#parameters">parameters</a> <a class=none href="#form-data">form-data</a> <a class=none href="#content">content</a> <a class=none href="#content-length">content-length</a> <a class=none href="#content-type">content-type</a> <a class=none href="#cookie-jar-param">cookie-jar</a> <a class=none href="#basic-authorization">basic-authorization</a> <a class=none href="#user-agent">user-agent</a> <a class=none href="#accept">accept</a> <a class=none href="#proxy">proxy</a> <a class=none href="#proxy-basic-authorization">proxy-basic-authorization</a> <a class=none href="#additional-headers">additional-headers</a> <a class=none href="#redirect">redirect</a> <a class=none href="#redirect-methods">redirect-methods</a> <a class=none href="#auto-referer">auto-referer</a> <a class=none href="#keep-alive">keep-alive</a> <a class=none href="#close">close</a> <a class=none href="#external-format-out">external-format-out</a> <a class=none href="#external-format-in">external-format-in</a> <a class=none href="#force-binary">force-binary</a> <a class=none href="#want-stream">want-stream</a> <a class=none href="#stream">stream</a> <a class=none href="#connection-timeout">connection-timeout</a> <a class=none href="#read-timeout">read-timeout</a> <a class=none href="#write-timeout">write-timeout</a></td></tr><tr><td colspan=2></td><td colspan=2 valign=top> => body-or-stream, status-code, headers, uri, stream, <a class=none href="#must-close">must-close</a>, reason-phrase</td></tr></table> + <table border=0><tr><td colspan=4 valign=top>[Function]</td></tr><tr><td valign=top style="white-space:nowrap"><a class=none name='http-request'>http-request</a> </td><td valign=top><a class=none href="#uri">uri</a> </td><td valign=top><tt>&key</tt> </td><td><a class=none href="#protocol">protocol</a> <a class=none href="#method">method</a> <a class=none href="#force-ssl">force-ssl</a> <a class=none href="#parameters">parameters</a> <a class=none href="#form-data">form-data</a> <a class=none href="#content">content</a> <a class=none href="#content-length">content-length</a> <a class=none href="#content-type">content-type</a> <a class=none href="#cookie-jar-param">cookie-jar</a> <a class=none href="#basic-authorization">basic-authorization</a> <a class=none href="#user-agent">user-agent</a> <a class=none href="#accept">accept</a> <a class=none href="#proxy">proxy</a> <a class=none href="#proxy-basic-authorization">proxy-basic-authorization</a> <a class=none href="#additional-headers">additional-headers</a> <a class=none href="#redirect">redirect</a> <a class=none href="#redirect-methods">redirect-methods</a> <a class=none href="#auto-referer">auto-referer</a> <a class=none href="#keep-alive">keep-alive</a> <a class=none href="#close">close</a> <a class=none href="#external-format-out">external-format-out</a> <a class=none href="#external-format-in">external-format-in</a> <a class=none href="#force-binary">force-binary</a> <a class=none href="#want-stream">want-stream</a> <a class=none href="#stream">stream</a> <a class=none href="#connection-timeout">connection-timeout</a> <a class=none href="#read-timeout">read-timeout</a> <a class=none href="#write-timeout">write-timeout</a> <a class=none href="#deadline">deadline</a></td></tr><tr><td colspan=2></td><td colspan=2 valign=top> => body-or-stream, status-code, headers, uri, stream, <a class=none href="#must-close">must-close</a>, reason-phrase</td></tr></table> <blockquote> Sends an <a href="http://www.rfc.net/rfc2616.html">HTTP</a> request to a web server and returns its reply. @@ -1030,6 +1030,16 @@ arguments are only available for LispWorks, <code>write-timeout</code> is only available for LispWorks 5.0 or higher. + +<a class=none name="deadline"><code>deadline</code></a>, a time +in the future, specifies the time until which the request should be +finished. The deadline is specified +in <a href="http://www.lispworks.com/documentation/HyperSpec/Body/26_glo_i.htm#internal…">internal +time units</a>. If the server fails to respond until that time, a +<a href="http://ccl.clozure.com/manual/chapter9.1.html"><code>COMMUNICATION-DEADLINE-EXPIRED</code></a> +condition is signalled. DEADLINE is only available +on <a href="http://www.clozure.com/clozurecl.html">CCL 1.2</a> +and later. </blockquote> Modified: trunk/thirdparty/drakma/request.lisp =================================================================== --- trunk/thirdparty/drakma/request.lisp 2009-02-09 11:01:48 UTC (rev 4199) +++ trunk/thirdparty/drakma/request.lisp 2009-02-09 11:15:17 UTC (rev 4200) @@ -381,11 +381,10 @@ LispWorks 5.0 or higher. DEADLINE, a time in the future, specifies the time until which the -request should be finished. The DEADLINE is specified in internal -time units (see (GET-INTERNAL-TIME-UNITS) and -INTERNAL-TIME-UNITS-PER-SECOND). If the server fails to respond until -that time, a COMMUNICATION-DEADLINE-EXPIRED condition is signalled. -DEADLINE is available on CCL 1.2 and later." +request should be finished. The deadline is specified in internal +time units. If the server fails to respond until that time, a +COMMUNICATION-DEADLINE-EXPIRED condition is signalled. DEADLINE is +only available on CCL 1.2 and later." (unless (member protocol '(:http/1.0 :http/1.1) :test #'eq) (parameter-error "Don't know how to handle protocol ~S." protocol)) (setq uri (cond ((uri-p uri) (copy-uri uri)) @@ -459,9 +458,11 @@ :nodelay t)))) #+openmcl (when deadline - ;; It is correct to set the deadline here even though it may have been initialized - ;; by SOCKET-CONNECT already: The stream may have been passed in by the user and - ;; the user may want to adjust the deadline for every request. + ;; it is correct to set the deadline here even though + ;; it may have been initialized by SOCKET-CONNECT + ;; already - the stream may have been passed in by the + ;; user and the user may want to adjust the deadline + ;; for every request. (setf (ccl:stream-deadline http-stream) deadline)) (when (and use-ssl ;; don't attach SSL to existing streams

1 0

[bknr-cvs] edi changed trunk/thirdparty/drakma/
by BKNR Commits 09 Feb '09

09 Feb '09

Revision: 4199 Author: edi URL: http://bknr.net/trac/changeset/4199 Version bump U trunk/thirdparty/drakma/CHANGELOG.txt U trunk/thirdparty/drakma/doc/index.html Modified: trunk/thirdparty/drakma/CHANGELOG.txt =================================================================== --- trunk/thirdparty/drakma/CHANGELOG.txt 2009-02-09 10:47:35 UTC (rev 4198) +++ trunk/thirdparty/drakma/CHANGELOG.txt 2009-02-09 11:01:48 UTC (rev 4199) @@ -1,8 +1,9 @@ -Version 0.12.0 +Version 1.0.0 2009-02-09 Use the new ("binary") version of Chunga +Added conditions types +Some performance improvements Be more lenient about content length (thanks to Zach Beane and "pix") -Added conditions types Added *ALLOW-DOTLESS-COOKIE-DOMAINS-P* (thanks to Daniel Janus) Fix generation of user agent header (bug caught by Chaitanya Gupta) Modified: trunk/thirdparty/drakma/doc/index.html =================================================================== --- trunk/thirdparty/drakma/doc/index.html 2009-02-09 10:47:35 UTC (rev 4198) +++ trunk/thirdparty/drakma/doc/index.html 2009-02-09 11:01:48 UTC (rev 4199) @@ -654,13 +654,13 @@ Drakma together with this documentation can be downloaded from <a href="http://weitz.de/files/drakma.tar.gz">http://weitz.de/files/drakma.tar.gz</a>. -The current version is 0.12.0. Drakma can be installed +The current version is 1.0.0. Drakma can be installed via <a href="http://www.cliki.net/asdf">ASDF</a> and depends on the open source libraries <a href="http://www.cliki.net/cl-base64">CL-BASE64</a> (use 3.3.2 or higher to avoid an unneeded dependency on <a href="http://www.cliki.net/kmrcl">KMRCL</a>), <a href="http://www.cliki.net/Puri">Puri</a>, <a href="http://weitz.de/flexi-streams/">FLEXI-STREAMS</a>, -and <a href="http://weitz.de/chunga/">Chunga</a> (0.5.0 or higher). +and <a href="http://weitz.de/chunga/">Chunga</a> (1.0.0 or higher). If you're not using LispWorks, you'll also need <a href="http://www.cliki.net/usocket">usocket</a> (0.3.2 or newer) and (except

1 0

[bknr-cvs] hans changed trunk/thirdparty/hunchentoot/connection-manager.lisp
by BKNR Commits 09 Feb '09

09 Feb '09

Revision: 4198 Author: hans URL: http://bknr.net/trac/changeset/4198 guard against closed sockets (from ITA r235337) U trunk/thirdparty/hunchentoot/connection-manager.lisp Modified: trunk/thirdparty/hunchentoot/connection-manager.lisp =================================================================== --- trunk/thirdparty/hunchentoot/connection-manager.lisp 2009-02-09 10:46:38 UTC (rev 4197) +++ trunk/thirdparty/hunchentoot/connection-manager.lisp 2009-02-09 10:47:35 UTC (rev 4198) @@ -127,10 +127,16 @@ nil #'process-connection (server manager) handle)) +(defun client-as-string (socket) + (let ((address (usocket:get-peer-address socket)) + (port (usocket:get-peer-port socket))) + (when (and address port) + (format nil "~A:~A" + (usocket:vector-quad-to-dotted-quad address) + port)))) + #-:lispworks (defmethod handle-incoming-connection ((manager one-thread-per-connection-manager) socket) (bt:make-thread (lambda () (process-connection (server manager) socket)) - :name (format nil "Hunchentoot worker \(client: ~A:~A)" - (usocket:vector-quad-to-dotted-quad (usocket:get-peer-address socket)) - (usocket:get-peer-port socket)))) + :name (format nil "Hunchentoot worker \(client: ~A)" (client-as-string socket))))

1 0

[bknr-cvs] hans changed trunk/thirdparty/hunchentoot/connection-manager.lisp
by BKNR Commits 09 Feb '09

09 Feb '09

Revision: 4197 Author: hans URL: http://bknr.net/trac/changeset/4197 improve comment (from ITA r234477) U trunk/thirdparty/hunchentoot/connection-manager.lisp Modified: trunk/thirdparty/hunchentoot/connection-manager.lisp =================================================================== --- trunk/thirdparty/hunchentoot/connection-manager.lisp 2009-02-09 10:14:59 UTC (rev 4196) +++ trunk/thirdparty/hunchentoot/connection-manager.lisp 2009-02-09 10:46:38 UTC (rev 4197) @@ -62,9 +62,9 @@ instance. The SOCKET argument is passed to START-REQUEST-PROCESSING as argument. -In a multi-threaded environment, the connection manager runs the thunk -in a separate thread. In a single-threaded environment, the thunk -will be called directly.")) +In a multi-threaded environment, the connection manager runs this function +in a separate thread. In a single-threaded environment, this function +is called directly.")) (defgeneric shutdown (connection-manager) (:documentation "Terminate all threads that are currently associated

1 0

[bknr-cvs] edi changed trunk/thirdparty/drakma/
by BKNR Commits 09 Feb '09

09 Feb '09

Revision: 4196 Author: edi URL: http://bknr.net/trac/changeset/4196 Be liberal about content length U trunk/thirdparty/drakma/CHANGELOG.txt U trunk/thirdparty/drakma/doc/index.html U trunk/thirdparty/drakma/request.lisp Modified: trunk/thirdparty/drakma/CHANGELOG.txt =================================================================== --- trunk/thirdparty/drakma/CHANGELOG.txt 2009-02-09 10:08:05 UTC (rev 4195) +++ trunk/thirdparty/drakma/CHANGELOG.txt 2009-02-09 10:14:59 UTC (rev 4196) @@ -1,6 +1,7 @@ Version 0.12.0 2009-02-09 Use the new ("binary") version of Chunga +Be more lenient about content length (thanks to Zach Beane and "pix") Added conditions types Added *ALLOW-DOTLESS-COOKIE-DOMAINS-P* (thanks to Daniel Janus) Fix generation of user agent header (bug caught by Chaitanya Gupta) Modified: trunk/thirdparty/drakma/doc/index.html =================================================================== --- trunk/thirdparty/drakma/doc/index.html 2009-02-09 10:08:05 UTC (rev 4195) +++ trunk/thirdparty/drakma/doc/index.html 2009-02-09 10:14:59 UTC (rev 4196) @@ -881,13 +881,12 @@ content body. Note that this will not work with some older web servers. -<a class=none name="content-length2">A non-<code>NIL</code> <code>content-length</code> argument</a> -means that Drakma must build the request body in RAM and -compute the content length even if it would have otherwise used -chunked encoding - for example in the case of file uploads. A special -case is the value <code>T</code> -for <code>content-length</code> which means that Drakma should -compute the content length after building the request body. +<a class=none name="content-length2">Providing +a</a> <a href="http://www.lispworks.com/documentation/HyperSpec/Body/26_glo_t.htm#true">true</a> +CONTENT-LENGTH argument which is not a non-negative integer means that +Drakma must build the request body in RAM and compute the +content length even if it would have otherwise used chunked encoding, +for example in the case of file uploads. <a class=none name="content-type"><code>content-type</code></a> is the corresponding 'Content-Type' header to be sent and will be ignored Modified: trunk/thirdparty/drakma/request.lisp =================================================================== --- trunk/thirdparty/drakma/request.lisp 2009-02-09 10:08:05 UTC (rev 4195) +++ trunk/thirdparty/drakma/request.lisp 2009-02-09 10:14:59 UTC (rev 4196) @@ -285,12 +285,10 @@ send the content body. Note that this will not work with older web servers. -A non-NIL CONTENT-LENGTH argument means that Drakma /must/ build the -request body in RAM and compute the content length even if it would -have otherwise used chunked encoding, for example in the case of file -uploads. A special case is the value T for CONTENT-LENGTH which means -that Drakma should compute the content length after building the -request body. +Providing a true CONTENT-LENGTH argument which is not a non-negative +integer means that Drakma /must/ build the request body in RAM and +compute the content length even if it would have otherwise used +chunked encoding, for example in the case of file uploads. CONTENT-TYPE is the corresponding `Content-Type' header to be sent and will be ignored unless CONTENT is provided as well. @@ -398,8 +396,6 @@ (parameter-error "Don't know how to handle scheme ~S." (uri-scheme uri))) (when (and close keep-alive) (parameter-error "CLOSE and KEEP-ALIVE must not be both true.")) - (when (and (eq content :continuation) content-length) - (parameter-error "CONTENT-LENGTH must be NIL if CONTENT is :CONTINUATION.")) (when (and form-data (not (eq method :post))) (parameter-error "FORM-DATA makes only sense with POST requests.")) ;; convert PROXY argument to canonical form @@ -550,7 +546,9 @@ (when content-type (write-header "Content-Type" "~A" content-type)) (when (and content-length - (not (or (arrayp content) + (not (or (and (integerp content-length) + (not (minusp content-length))) + (arrayp content) (listp content) (eq content :continuation)))) ;; CONTENT-LENGTH forces us to compute request body

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

bknr-cvs