From 116dc5f0b548a43390ee13636b2d372c07af3702 Mon Sep 17 00:00:00 2001
From: Kjetil Orbekk <kj@orbekk.com>
Date: Sun, 25 Feb 2024 14:46:22 -0500
Subject: update

---
 clisp/web.lisp | 10 ++++++++++
 1 file changed, 10 insertions(+)
 create mode 100644 clisp/web.lisp

(limited to 'clisp/web.lisp')

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))
-- 
cgit v1.2.3