From 9d4bc15de89204bfb787e1e922c38122dae041a7 Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Wed, 7 Oct 2009 23:28:49 +0200
Subject: Fix a mistake related to read-macros.

Ignore-this: 8054711e24061afeccf7465ea01127be

darcs-hash:291dcb790079defb43622fbd03ceea515dd7214d
---
 main.lisp | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'main.lisp')

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
-- 
cgit v1.2.3