From 5165d815f44a7c5264d347f55d86d28da68d41b1 Mon Sep 17 00:00:00 2001 From: Matthias Andreas Benkard Date: Sun, 13 Mar 2011 20:57:32 +0100 Subject: Fix formatting. --- mulkcms.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/mulkcms.lisp b/mulkcms.lisp index 2176168..12b3d14 100644 --- a/mulkcms.lisp +++ b/mulkcms.lisp @@ -410,8 +410,8 @@ (with-transaction () (let* ((revision (if (assoc "save" params :test #'equal) (query "INSERT INTO article_revisions(article, title, content, author, format, status) - VALUES ($1, $2, $3, $4, $5, $6) - RETURNING *" + VALUES ($1, $2, $3, $4, $5, $6) + RETURNING *" article (cdr (assoc "title" params :test #'equal)) (cdr (assoc "content" params :test #'equal)) -- cgit v1.2.3