(cl:defpackage :TEST-CLASH (:USE :CL :CLASH))
(cl:in-package :TEST-CLASH)
(enable-clash-syntax)
(defvar *my-server* (make-instance 'http-server/1.0))
(export-resource *my-server* #u"/index.html"
'static-resource
:entity (make-instance 'string-entity :body
"Test Page on ACL 5.0.3
Test Page on ACL 5.0.3
Hi!
"))
(start-http-listener 3080 *my-server*)
(initialize-clash)