Change template delimeters from <!-- --> to << >>

[clinton/website/site-support.git] / books.lisp

diff --git a/books.lisp b/books.lisp
index 40d0b53..0715e2f 100644 (file)
--- a/books.lisp
+++ b/books.lisp
@@ -61,7 +61,9 @@
                                 :element-type 'extended-char
                                 :if-exists :supersede
                                 :if-does-not-exist :create)
-      (let ((html-template:*string-modifier* #'identity))
+      (let ((html-template:*string-modifier* #'identity)
+           (html-template:*template-start-marker* "<<")
+           (html-template:*template-end-marker* ">>"))
        (html-template:fill-and-print-template
         template-path
         (book-database-vars