summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthias Benkard <code@mail.matthias.benkard.de>2009-10-30 21:14:53 +0100
committerMatthias Benkard <code@mail.matthias.benkard.de>2009-10-30 21:14:53 +0100
commit5e4c0344d3ed5941745bad6175221405788bfd21 (patch)
tree68fd7277e028a1f1637a19986b51ed03ba29f7d9
parent5d8043dfdbe33892896460073a166fb8900d814a (diff)
Fix XML-RPC response format.
Ignore-this: df93c70e15dccc898fa1770c8a6193b4 darcs-hash:618430f8da6f5e8e555b2af9157a6c6f8c9f8495
-rw-r--r--main.lisp2
1 files changed, 2 insertions, 0 deletions
diff --git a/main.lisp b/main.lisp
index 8fce09d..9c29fe2 100644
--- a/main.lisp
+++ b/main.lisp
@@ -336,6 +336,8 @@
(write (let ((*xml-rpc-package*
(find-package '#:mulk.journal.xml-rpc)))
(s-xml-rpc::handle-xml-rpc-call xml-data 0))
+ :pretty nil
+ :escape nil
:stream *standard-output*))))
(otherwise (show-web-journal)))
#.(restore-sql-reader-syntax-state))