diff options
author | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2011-03-12 15:45:53 +0100 |
---|---|---|
committer | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2011-03-12 15:45:53 +0100 |
commit | 9c1d0dd3041f1a062f2d9708c0dc6eaa7f089c80 (patch) | |
tree | 17e3f101f557ae049454038a7d1a1a38feb5f208 /mulkcms-hunchentoot.lisp | |
parent | 7d9f81622846a5d775703b765819d887f23dd29c (diff) |
Calculate the number of comments for each article. Add Google Code Prettify.
Diffstat (limited to 'mulkcms-hunchentoot.lisp')
-rw-r--r-- | mulkcms-hunchentoot.lisp | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/mulkcms-hunchentoot.lisp b/mulkcms-hunchentoot.lisp index 3a554a7..6c5e039 100644 --- a/mulkcms-hunchentoot.lisp +++ b/mulkcms-hunchentoot.lisp @@ -13,10 +13,7 @@ (defun dispatch-mulkcms-request (request) (let* ((relative-path (subseq (script-name request) 1))) - (or (mulkcms::find-journal-archive-request-handler - relative-path - (assoc "full" (get-parameters*) :test #'equal)) - (mulkcms::find-article-request-handler relative-path)))) + (mulkcms:find-request-handler relative-path(get-parameters*)))) (defun setup-handlers () (setq *dispatch-table* |