diff options
| author | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2011-03-13 22:48:40 +0100 |
|---|---|---|
| committer | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2011-03-13 22:48:40 +0100 |
| commit | c845cf1dd1ee012121954799169a5c60581494bd (patch) | |
| tree | 1e87e5d9742bcf10b87742d60197d2ac95999ab2 | |
| parent | de9195521b841984df547f7b85e5cb42351683d2 (diff) | |
Fix formatting.
| -rw-r--r-- | mulkcms.lisp | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/mulkcms.lisp b/mulkcms.lisp index b5083b3..9df7237 100644 --- a/mulkcms.lisp +++ b/mulkcms.lisp @@ -450,8 +450,8 @@ "draft") :row) (query "SELECT * FROM article_revisions - WHERE id = $1 - AND article = $2" + WHERE id = $1 + AND article = $2" (parse-integer (cdr (assoc "revision" params @@ -466,16 +466,16 @@ params :test #'equal)))) (query "INSERT INTO article_revision_parenthood(parent, child) - VALUES ($1, $2)" + VALUES ($1, $2)" (parse-integer (cdr (assoc "revision" params :test #'equal))) (first revision) :none) (query "INSERT INTO article_revision_characteristics(revision, characteristic, value) - SELECT $2, characteristic, value - FROM article_revision_characteristics - WHERE revision = $1" + SELECT $2, characteristic, value + FROM article_revision_characteristics + WHERE revision = $1" (parse-integer (cdr (assoc "revision" params :test #'equal))) @@ -497,9 +497,9 @@ (lambda () (with-db (let* ((page-template-name (query "SELECT page_template FROM articles - JOIN article_types - ON articles.type = article_types.id - WHERE articles.id = $1" + JOIN article_types + ON articles.type = article_types.id + WHERE articles.id = $1" article :single!)) (article-params (find-article-params article characteristics t)) |