clisp/web.lisp


1
2
3
4
5
6
7
8
9
10

(ql:quickload :clack)

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

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