hiro/lack
1
0
Fork 0
mirror of https://github.com/vale981/lack synced 2025-03-04 17:01:41 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

Change ENV destructively in make-request.

Browse source
This commit is contained in:
Eitaro Fukamachi 2015-03-21 00:48:40 +09:00
parent 452b057c1a
commit d59f06a954
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/request.lisp
View file

@ -70,7 +70,7 @@
(setf (request-cookies req)
(loop for kv in (ppcre:split "\\s*[,;]\\s*" cookie)
append (quri:url-decode-params kv :lenient t)))
(setf (getf env :cookies) (request-cookies req)))))
(rplacd (last env) (list :cookies (request-cookies req))))))
;; GET parameters
(with-slots (query-parameters query-string) req
@ -78,7 +78,7 @@
query-string)
(setf query-parameters
(quri:url-decode-params query-string :lenient t))
(setf (getf env :query-parameters) query-parameters)))
(rplacd (last env) (list :query-parameters query-parameters))))
;; POST parameters
(with-slots (body-parameters raw-body content-length content-type) req
@ -86,7 +86,7 @@
raw-body)
(setf body-parameters
(http-body:parse content-type content-length raw-body))
(setf (getf env :body-parameters) body-parameters)))
(rplacd (last env) (list :body-parameters body-parameters))))
(setf (request-env req) env)