diff options
| author | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2011-12-23 22:34:59 +0100 |
|---|---|---|
| committer | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2011-12-23 22:34:59 +0100 |
| commit | 9522e35b0db9850796f5f995103c4d4e13cc23e3 (patch) | |
| tree | 1753bddad2aca9369332f9101b1785f8a60b1da0 | |
| parent | 2636502237938e0ed98ac2f872a85671ae94b8e3 (diff) | |
Fix a small compilation order problem.
| -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 |