summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthias Benkard <code@mail.matthias.benkard.de>2009-11-12 18:50:19 +0100
committerMatthias Benkard <code@mail.matthias.benkard.de>2009-11-12 18:50:19 +0100
commit28b9485f92eeec7a42b46738c0223235e7f29d69 (patch)
tree5a59ee5bdacae631383c1e51662b280e62dde91a
parentc415b90ccbceb81cbe71331beb7e54319d4b6863 (diff)
Fix a reader-syntax problem.
Ignore-this: e9ba106cf19ec45d1fdcfd85da9e1310 darcs-hash:5923708701f6bfbfc70482cba2574e322aa4b13a
-rwxr-xr-xjournal.lisp4
1 files changed, 3 insertions, 1 deletions
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...")