diff options
| -rw-r--r-- | xml-rpc-functions.lisp | 6 |
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)) |