summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthias Benkard <code@mail.matthias.benkard.de>2009-10-07 23:28:49 +0200
committerMatthias Benkard <code@mail.matthias.benkard.de>2009-10-07 23:28:49 +0200
commit9d4bc15de89204bfb787e1e922c38122dae041a7 (patch)
treea2f1322cc8edf539c5557bb1177339adf405dc49
parent0c229ebd03ccc935feb9f59316a28f322d8209b8 (diff)
Fix a mistake related to read-macros.
Ignore-this: 8054711e24061afeccf7465ea01127be darcs-hash:291dcb790079defb43622fbd03ceea515dd7214d
-rw-r--r--main.lisp4
1 files changed, 3 insertions, 1 deletions
diff --git a/main.lisp b/main.lisp
index 25e1484..9dbe04e 100644
--- a/main.lisp
+++ b/main.lisp
@@ -127,6 +127,7 @@
(defun dispatch-user-action ()
+ #.(locally-enable-sql-reader-syntax)
(case *action*
(:post-comment (with-transaction ()
(let* ((entry (find-entry *post-number*))
@@ -189,7 +190,8 @@
(:view-atom-feed (show-atom-feed))
(:view-comment-feed (show-comment-feed))
(:view-debugging-page (show-debugging-page))
- (otherwise (show-web-journal))))
+ (otherwise (show-web-journal)))
+ #.(restore-sql-reader-syntax-state))
#+clisp