(ql:quickload :clack)

(defun handler (env)
  '(200 (:content-type "text/plain")
    ("Hello, Everyone!")))

(defvar *server*
  (clack:clackup
   (lambda (env) (funcall 'handler env))
   :server :hunchentoot))