diff options
| author | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2011-12-07 00:02:44 +0100 |
|---|---|---|
| committer | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2011-12-07 00:02:44 +0100 |
| commit | 7aa6bd0fe8b7d308d7abcb94f78b0eb0a5e87a18 (patch) | |
| tree | 1ff761a95d9ef5960c6fd82e3ca970ad0cb307b5 | |
| parent | 702601b311c57877524ae8005c4810d9831bade7 (diff) | |
Update to latest Hunchentoot release.
| -rwxr-xr-x[-rw-r--r--] | mulkcms-hunchentoot.lisp | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/mulkcms-hunchentoot.lisp b/mulkcms-hunchentoot.lisp index 9f81cb0..c5fa908 100644..100755 --- 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*)) + |