projects
/
wol.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r8225: add entities for latin-1 characters
[wol.git]
/
project.lisp
diff --git
a/project.lisp
b/project.lisp
index ed1ef4892c8a0beb42db44cbe477bbc1f3c28290..5ff310459c74a72cf60b5dea71dc3c1869eaf98f 100644
(file)
--- a/
project.lisp
+++ b/
project.lisp
@@
-309,7
+309,7
@@
(net.aserve:with-http-response
((aserve-request ,req)
(entity-aserve-entity ,ent)
(net.aserve:with-http-response
((aserve-request ,req)
(entity-aserve-entity ,ent)
- :content-type (ml::format-string ,format)
+ :content-type (ml::format-string ,format
,headers
)
:timeout ,timeout
:response
(case ,response-code
:timeout ,timeout
:response
(case ,response-code
@@
-351,7
+351,7
@@
,result ,outstr ,stream)
(declare (ignorable ,stream))
(write-header-line "Status" ,response-string)
,result ,outstr ,stream)
(declare (ignorable ,stream))
(write-header-line "Status" ,response-string)
- (write-header-line "Content-Type" (ml::format-string ,fmt))
+ (write-header-line "Content-Type" (ml::format-string ,fmt
,headers
))
(dolist (,hdr ,headers)
(write-header-line (car ,hdr) (cdr ,hdr)))
(unless ,precomp
(dolist (,hdr ,headers)
(write-header-line (car ,hdr) (cdr ,hdr)))
(unless ,precomp