adapt to new hunchentoot api

hanshuebner · Feb 23, 2011 · 51fd1fb · 51fd1fb
1 parent 8cfb072
commit 51fd1fb
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 2 deletions.
diff --git a/src/packages.lisp b/src/packages.lisp
@@ -175,6 +175,8 @@
 	   #:with-bknr-page
 	   #:cmslink
 
+           #:bknr-acceptor
+
 	   #:web-server-log-event-referer
 	   #:web-server-log-event-url
 	   #:web-server-log-event-user-agent

diff --git a/src/web/handlers.lisp b/src/web/handlers.lisp
@@ -343,8 +343,11 @@ belongs to the user that is specified in the request."
                                                    (error "cannot find \"anonymous\" user"))))))
   (session-value 'bknr-session))
 
-(defun bknr-dispatch (request)
-  (declare (ignore request))
+(defclass bknr-acceptor (hunchentoot:acceptor)
+  ()
+  (:default-initargs :persistent-connections-p nil))
+
+(defmethod hunchentoot:acceptor-dispatch-request ((acceptor bknr-acceptor) (request hunchentoot:request))
   (let ((handler (find-if #'handler-matches-p (website-handlers *website*))))
     (cond
       (handler