diff options
| author | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2011-03-13 20:57:32 +0100 |
|---|---|---|
| committer | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2011-03-13 20:57:32 +0100 |
| commit | 5165d815f44a7c5264d347f55d86d28da68d41b1 (patch) | |
| tree | ded31495b2dd823c9b6a108f7232649f4e757778 | |
| parent | 315838f9f666ab0196ff1f27c9604b5a2f2bce50 (diff) | |
Fix formatting.
| -rw-r--r-- | mulkcms.lisp | 4 |
1 files 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)) |