From c845cf1dd1ee012121954799169a5c60581494bd Mon Sep 17 00:00:00 2001 From: Matthias Andreas Benkard Date: Sun, 13 Mar 2011 22:48:40 +0100 Subject: Fix formatting. --- mulkcms.lisp | 18 +++++++++--------- 1 file 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)) -- cgit v1.2.3