From 273acd2a774a9815da5d13c77f69958eabfbbf88 Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Sun, 11 Oct 2009 20:24:55 +0200 Subject: Fix comment submission. Ignore-this: d8a6251d01d8acfe26bbf8c3d19a3b11 darcs-hash:6a0d05338565388d5b9adcfefbe9ad86ba9c1a9a --- main.lisp | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/main.lisp b/main.lisp index 58f277d..70d9fa0 100644 --- a/main.lisp +++ b/main.lisp @@ -87,11 +87,13 @@ (:mst-plus #p"/usr/lib/") (:nfs.net #p"/usr/local/lib/"))))) (when (null *action*) - (setq *action* (if *post-number* - (if (eq *method* :post) - :post-trackback - :view) - :index))) + (setq *action* (or (let ((query-action (getf *query* :action nil))) + (and query-action (keywordify query-action))) + (if *post-number* + (if (eq *method* :post) + :post-trackback + :view) + :index)))) (clsql:push-library-path *script-dir*) (clsql:push-library-path #p"/usr/local/lib/") (push *script-dir* clsql-sys:*foreign-library-search-paths*) -- cgit v1.2.3