From 770c0ea8257fa9a866edde35e816d1493cda1eb3 Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Fri, 30 Oct 2009 22:29:16 +0100 Subject: Add an XML declaration to XML-RPC responses. Ignore-this: ca190d4d2848cd3ca092cb935c9da1ec darcs-hash:766b50c05e953956d6ad7d679c663f5f55e302d3 --- main.lisp | 1 + 1 file changed, 1 insertion(+) diff --git a/main.lisp b/main.lisp index 9d0927f..239202b 100644 --- a/main.lisp +++ b/main.lisp @@ -335,6 +335,7 @@ (:xml-rpc (when (eq *method* :post) (http-add-header "Content-Language" "de") (http-send-headers "text/xml; charset=UTF-8") + (format t "~&~%") (write (let ((*xml-rpc-package* (find-package '#:mulk.journal.xml-rpc))) (s-xml-rpc::handle-xml-rpc-call *standard-input* 0)) -- cgit v1.2.3