cl-rw

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:
M
http.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)