diff options
author | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2011-03-14 21:05:18 +0100 |
---|---|---|
committer | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2011-03-14 21:05:18 +0100 |
commit | 29ec6a5994b48330e2fe99a746bf105dd766f96f (patch) | |
tree | dacd7a837b7a35f9832ab8d878115a810150fb70 /mulkcms-hunchentoot.lisp | |
parent | c845cf1dd1ee012121954799169a5c60581494bd (diff) |
Add article summary page.
Diffstat (limited to 'mulkcms-hunchentoot.lisp')
-rw-r--r-- | mulkcms-hunchentoot.lisp | 8 |
1 files changed, 1 insertions, 7 deletions
diff --git a/mulkcms-hunchentoot.lisp b/mulkcms-hunchentoot.lisp index befdc09..5562fba 100644 --- a/mulkcms-hunchentoot.lisp +++ b/mulkcms-hunchentoot.lisp @@ -1,10 +1,5 @@ (in-package #:mulkcms-hunchentoot) -#+(or) -(define-easy-handler handle-admin-request (action) - ;; XXX - ) - (defun dispatch-static-file-request (request) (let* ((relative-path (subseq (script-name request) 1)) (file (merge-pathnames relative-path *static-files*))) @@ -23,8 +18,7 @@ (defun setup-handlers () (setq *dispatch-table* - (list* (create-prefix-dispatcher "/admin" 'handle-admin-request) - 'dispatch-mulkcms-request + (list* 'dispatch-mulkcms-request 'dispatch-static-file-request *dispatch-table*)) (setq *default-handler* |