summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--mulkcms.lisp7
1 files 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