diff options
| -rw-r--r-- | mulkcms-hunchentoot.lisp | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/mulkcms-hunchentoot.lisp b/mulkcms-hunchentoot.lisp index a2e5a15..9f123d0 100644 --- a/mulkcms-hunchentoot.lisp +++ b/mulkcms-hunchentoot.lisp @@ -28,9 +28,7 @@ (mulkcms::*request-method* (hunchentoot:request-method*)) (mulkcms::*headers* - (hunchentoot::headers-in*)) - (mulkcms::*authorization-page-handler* - #'handle-authorization-page)) + (hunchentoot::headers-in*))) (multiple-value-bind (mulkcms::*user-name* mulkcms::*password*) (hunchentoot:authorization) @@ -73,5 +71,6 @@ (setq *acceptor* (make-instance 'hunchentoot:easy-acceptor :port *server-port* :address *server-address*)) + (setq mulkcms::*authorization-page-handler* #'handle-authorization-page) (hunchentoot:start *acceptor*)) |