From 1a0c37cae11abb59d146b566490f99884af2cfb5 Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Fri, 30 Oct 2009 21:21:04 +0100 Subject: Don't touch the query information when doing an XML-RPC call. Ignore-this: b862cd822fdd388286525bf8d2ad4a22 darcs-hash:bcd1d88360610685932eba94ea6e42f0c7a990da --- main.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/main.lisp b/main.lisp index 57aa72c..891219e 100644 --- a/main.lisp +++ b/main.lisp @@ -47,7 +47,7 @@ ((string= "rebuild" (car (last *subpath*))) :rebuild) ((member (car (last *subpath*)) '("rpc" "RPC2") :test #'string=) :xml-rpc) (t nil)))) - (*query* (if (eq *action* :view-atom-entry) + (*query* (if (member *action* '(:view-atom-entry :xml-rpc)) nil (mapcan #'(lambda (param) (list (keywordify param) -- cgit v1.2.3