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

Make downcased strings in headers.

Browse source
This commit is contained in:
Eitaro Fukamachi 2018-09-19 23:29:08 +09:00
parent 7bae407558
commit a6962b1fb6
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/test.lisp
View file

@ -77,7 +77,7 @@
(length content)) (length content))
:headers (loop with hash = (make-hash-table :test 'equal) :headers (loop with hash = (make-hash-table :test 'equal)
for (k . v) in headers for (k . v) in headers
do (setf (gethash k hash) v) do (setf (gethash (string-downcase k) hash) v)
finally (return hash)) finally (return hash))
:raw-body (and content :raw-body (and content
(flex:make-in-memory-input-stream content))))) (flex:make-in-memory-input-stream content)))))