gistfile1.txt

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

(in-package :hunchentoot-demo)

(defclass acceptor (hunchentoot:acceptor) ())
(defvar *acceptor* (make-instance 'acceptor
				  :port 8080))

(defun foo (request)
  (format nil "~a" request))

(defun index (request)
  (format nil "~a" (get-universal-time)))

(defmethod hunchentoot:handle-request ((acceptor hunchentoot-demo::acceptor) request)
  (defun get-last-request () request)
  (funcall
   (switch ((hunchentoot:request-uri request)
	    :test #'string=)
     ("/" #'index)
     ("/foo" #'foo))
   request))