13 lines
494 B
Common Lisp
13 lines
494 B
Common Lisp
(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
|
|
"<HTML><HEAD><TITLE>Test Page on ACL 5.0.3</TITLE></HEAD>
|
|
<BODY BGCOLOR='#eeeeff'><H1>Test Page on ACL 5.0.3</H1><P> Hi! </P>
|
|
</BODY></HTML>"))
|
|
(start-http-listener 3080 *my-server*)
|
|
(initialize-clash)
|