summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--xml-rpc-functions.lisp6
1 files changed, 4 insertions, 2 deletions
diff --git a/xml-rpc-functions.lisp b/xml-rpc-functions.lisp
index ac50c7b..c405fb5 100644
--- a/xml-rpc-functions.lisp
+++ b/xml-rpc-functions.lisp
@@ -22,8 +22,10 @@
(in-package #:mulk.journal)
-#.(setf *readtable* (copy-readtable))
-#.(setf (readtable-case *readtable*) :invert)
+#.(progn
+ (setf *readtable* (copy-readtable))
+ (setf (readtable-case *readtable*) :invert)
+ nil)
(defun mulk.journal.xml-rpc::metaWeblog.newPost (blogid username password struct publish)
(declare (ignore blogid username publish))