From 29ec6a5994b48330e2fe99a746bf105dd766f96f Mon Sep 17 00:00:00 2001 From: Matthias Andreas Benkard Date: Mon, 14 Mar 2011 21:05:18 +0100 Subject: Add article summary page. --- mulkcms-hunchentoot.lisp | 8 +------- 1 file changed, 1 insertion(+), 7 deletions(-) (limited to 'mulkcms-hunchentoot.lisp') 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* -- cgit v1.2.3