(in-package :araneus-2)

 
 (defgeneric mapper (acceptor)
   (:documentation ""))
 
 (defclass acceptor (hunchentoot:acceptor)
   ((%mapper :initform (myway:make-mapper) :reader mapper)))
 
 (defvar *current-route*)
 
 (defgeneric resolve-request (acceptor request)
   (:method-combination or :most-specific-first)
   (:method or ((acceptor acceptor) request)
            (let ((router (mapper acceptor)))
              (myway:dispatch router (hunchentoot:script-name*)
                              :method (hunchentoot:request-method*)))))
 
 (defmethod hunchentoot:acceptor-dispatch-request ((acceptor acceptor) request)
   (multiple-value-bind (result matched)
       (resolve-request acceptor request)
     (if matched
         result
         (call-next-method))))