From 9522e35b0db9850796f5f995103c4d4e13cc23e3 Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <code@mail.matthias.benkard.de>
Date: Fri, 23 Dec 2011 22:34:59 +0100
Subject: Fix a small compilation order problem.

---
 mulkcms.lisp | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/mulkcms.lisp b/mulkcms.lisp
index f2c0292..708f517 100644
--- a/mulkcms.lisp
+++ b/mulkcms.lisp
@@ -219,10 +219,6 @@
                     (lambda () ,@body)))
 
 
-(defun invalidate-cache ()
-  (with-db (query "DELETE FROM cached_pages")))
-
-
 (defun find-canonical-article-alias (article)
   (query "SELECT alias FROM article_aliases WHERE article = $1 LIMIT 1"
          article
@@ -293,6 +289,9 @@
 (defmacro with-db (&body body)
   `(call-with-db (lambda () ,@body)))
 
+(defun invalidate-cache ()
+  (with-db (query "DELETE FROM cached_pages")))
+
 (defun find-template (template-name)
   (first (directory (make-pathname :name template-name
                                    :type :wild
-- 
cgit v1.2.3