diff options
-rw-r--r-- | mulkcms.lisp | 7 |
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 |