From 273acd2a774a9815da5d13c77f69958eabfbbf88 Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
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(-)

(limited to 'main.lisp')

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