summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--main.lisp2
1 files changed, 1 insertions, 1 deletions
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)