From 7aa6bd0fe8b7d308d7abcb94f78b0eb0a5e87a18 Mon Sep 17 00:00:00 2001 From: Matthias Andreas Benkard Date: Wed, 7 Dec 2011 00:02:44 +0100 Subject: Update to latest Hunchentoot release. --- mulkcms-hunchentoot.lisp | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) mode change 100644 => 100755 mulkcms-hunchentoot.lisp diff --git a/mulkcms-hunchentoot.lisp b/mulkcms-hunchentoot.lisp old mode 100644 new mode 100755 index 9f81cb0..c5fa908 --- a/mulkcms-hunchentoot.lisp +++ b/mulkcms-hunchentoot.lisp @@ -1,5 +1,7 @@ (in-package #:mulkcms-hunchentoot) +(defvar *acceptor*) + (defun dispatch-static-file-request (request) (let* ((relative-path (subseq (script-name request) 1)) (file (merge-pathnames relative-path *static-files*))) @@ -37,6 +39,8 @@ "text/html; charset=utf-8") (setup-handlers) (setq *random-state* (make-random-state t)) - (hunchentoot:start (make-instance 'hunchentoot:acceptor - :port *server-port* - :address *server-address*))) + (setq *acceptor* (make-instance 'hunchentoot:easy-acceptor + :port *server-port* + :address *server-address*)) + (hunchentoot:start *acceptor*)) + -- cgit v1.2.3