(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
,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