Fix a mistake related to read-macros.

Ignore-this: 8054711e24061afeccf7465ea01127be

darcs-hash:291dcb790079defb43622fbd03ceea515dd7214d

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