From 28b9485f92eeec7a42b46738c0223235e7f29d69 Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Thu, 12 Nov 2009 18:50:19 +0100
Subject: Fix a reader-syntax problem.

Ignore-this: e9ba106cf19ec45d1fdcfd85da9e1310

darcs-hash:5923708701f6bfbfc70482cba2574e322aa4b13a
---
 journal.lisp | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/journal.lisp b/journal.lisp
index face2a2..ed2dd87 100755
--- a/journal.lisp
+++ b/journal.lisp
@@ -763,6 +763,7 @@
                  (<:pre (<:as-html (prin1-to-string y))))))))
 
 (defun show-site-map ()
+  #.(locally-enable-sql-reader-syntax)
   (with-xml-output (*standard-output* :encoding "utf-8")
     (with-tag ("sitemap" '(("xmlns" "http://www.sitemaps.org/schemas/sitemap/0.9")))
       (with-tag ("url")
@@ -776,7 +777,8 @@
                           :flatp t))
         (with-tag ("url")
           (emit-simple-tags :loc (link-to :view :post-id id)
-                            :priority "0.7"))))))
+                            :priority "0.7")))))
+  #.(restore-sql-reader-syntax-state))
 
 (defun update-journal ()
   (format t "~&Updating index page...")
-- 
cgit v1.2.3