summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthias Benkard <code@mail.matthias.benkard.de>2009-10-11 20:24:55 +0200
committerMatthias Benkard <code@mail.matthias.benkard.de>2009-10-11 20:24:55 +0200
commit273acd2a774a9815da5d13c77f69958eabfbbf88 (patch)
treecb885518f5b19501e72be9efdaf1e044d1abba9d
parentda11816444e1f3fc27f174a1b8d31b5e703fbd01 (diff)
Fix comment submission.
Ignore-this: d8a6251d01d8acfe26bbf8c3d19a3b11 darcs-hash:6a0d05338565388d5b9adcfefbe9ad86ba9c1a9a
-rw-r--r--main.lisp12
1 files 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*)