summaryrefslogtreecommitdiff
path: root/clisp/web.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'clisp/web.lisp')
-rw-r--r--clisp/web.lisp10
1 files changed, 10 insertions, 0 deletions
diff --git a/clisp/web.lisp b/clisp/web.lisp
new file mode 100644
index 0000000..83015a6
--- /dev/null
+++ b/clisp/web.lisp
@@ -0,0 +1,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))