From fa39a33262822ff433d40648f2ca16d6f93abe19 Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Sat, 8 May 2010 23:08:11 +0200
Subject: Fix readtable handling at read-time.

Ignore-this: e487d356408ba98068393f50295e1a32

darcs-hash:1e97b7d4ab96eb79dfa8fc3cfd18f50ae7a7a600
---
 xml-rpc-functions.lisp | 6 ++++--
 1 file 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))
-- 
cgit v1.2.3