summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthias Benkard <code@mail.matthias.benkard.de>2010-05-08 23:08:11 +0200
committerMatthias Benkard <code@mail.matthias.benkard.de>2010-05-08 23:08:11 +0200
commitfa39a33262822ff433d40648f2ca16d6f93abe19 (patch)
tree422d9fa32281efc7257ab846ed27b577f3b16ba9
parent8f044f6c54e40e35e677f6aa044553ae40db6110 (diff)
Fix readtable handling at read-time.
Ignore-this: e487d356408ba98068393f50295e1a32 darcs-hash:1e97b7d4ab96eb79dfa8fc3cfd18f50ae7a7a600
-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))