cl-rw

Layered streams for Common Lisp
git clone https://logand.com/git/cl-rw.git/
Log | Files | Refs

commit fb4f85806c0fc4b8c4011749f1c91e9210dab629
parent 757d4002fceb6ab0b74a8fd385c7f0c31121779d
Author: Tomas Hlavaty <tom@logand.com>
Date:   Sat, 12 Oct 2013 15:16:15 +0200

minor style change and comment added

Diffstat:
Mhttp.lisp | 8++++----
1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/http.lisp b/http.lisp @@ -272,9 +272,9 @@ (defun multipart-reader (reader boundary) (let* ((start-boundary `(#\- #\- ,@boundary)) (end-boundary `(,@start-boundary #\- #\-)) - (sentinel (list `(#\return #\newline ,@start-boundary) - `(#\return ,@start-boundary) - `(#\newline ,@start-boundary))) + (sentinel `((#\return #\newline ,@start-boundary) + (#\return ,@start-boundary) + (#\newline ,@start-boundary))) (r (rw::look-ahead-reader reader (length (car sentinel))))) (lambda () (rw:skip r) @@ -285,7 +285,7 @@ (next-eol r) (list :part :headers (next-headers r) - :body (rw:till r sentinel nil t)))))))) + :body (rw:till r sentinel nil t)))))))) ;; TODO very slow for anything non-tiny (defun post-parameters (method multipart/form-data) (when (eq :post method)