diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2010-05-08 23:08:11 +0200 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2010-05-08 23:08:11 +0200 |
| commit | fa39a33262822ff433d40648f2ca16d6f93abe19 (patch) | |
| tree | 422d9fa32281efc7257ab846ed27b577f3b16ba9 | |
| parent | 8f044f6c54e40e35e677f6aa044553ae40db6110 (diff) | |
Fix readtable handling at read-time.
Ignore-this: e487d356408ba98068393f50295e1a32
darcs-hash:1e97b7d4ab96eb79dfa8fc3cfd18f50ae7a7a600
| -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)) |