projects
/
wol.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r8226: update to new dtd writing functions
[wol.git]
/
project.lisp
diff --git
a/project.lisp
b/project.lisp
index 5ff310459c74a72cf60b5dea71dc3c1869eaf98f..cf8c1910c44ddc516a34ec452a5151241d4d7fc0 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 ,headers
)
+ :content-type (ml::format-
>string ,format
)
: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 ,headers
))
+ (write-header-line "Content-Type" (ml::format-
>string ,fmt
))
(dolist (,hdr ,headers)
(write-header-line (car ,hdr) (cdr ,hdr)))
(unless ,precomp
(dolist (,hdr ,headers)
(write-header-line (car ,hdr) (cdr ,hdr)))
(unless ,precomp