Cache FORMAT-DATE results for faster page generation.

darcs-hash:2efe2fb7b5c7637c31d56be210624a48f61755ec

1 files changed, 4 insertions, 0 deletions

diff --git a/main.lisp b/main.lisp
index f27a989..4fb7467 100644
--- a/main.lisp
+++ b/main.lisp
@@ -57,6 +57,10 @@
          (*script-filename* (pathname-as-file
                              (or (gethash "SCRIPT_FILENAME" *http-env*)
                                  "/home/mulk/Dokumente/Projekte/Mulkblog/journal.cgi")))
+         (*script-dir*      (make-pathname
+                             :directory (pathname-directory *script-filename*)))
+         (*cache-dir*       (merge-pathnames #p"cache/" *script-dir*))
+         (*entry-dir*       (merge-pathnames #p"journal-entries/" *script-dir*))
          (*journal-entries* (read-journal-entries)))
     (funcall func)))