gistfile1.txt

(defpackage :hunchentoot-demo
  (:use :cl :alexandria))

(in-package :hunchentoot-demo)

(defclass acceptor (hunchentoot:acceptor) ())

(defvar *acceptor* (make-instance 'acceptor))

(defvar *routes* nil)

(defun four-oh-four () "404")

(defun choose-route (request)
  (let ((route (assoc (hunchentoot:request-uri request)
                      *routes*
                      :test #'string=)))
    (if route
        (funcall (symbol-function (cdr route)) request)
        (funcall #'four-oh-four request))))

(defmethod hunchentoot:handle-request ((acceptor acceptor) request)
  (choose-route request))