24 lines
953 B
Common Lisp
Executable File
24 lines
953 B
Common Lisp
Executable File
(cl:defpackage :TEST-CLASH (:USE :CL :CLASH))
|
|
(cl:in-package :TEST-CLASH)
|
|
(eval-when (:compile-toplevel :load-toplevel :execute) (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
|
|
(format nil
|
|
"<HTML>~
|
|
<HEAD><TITLE>Simple CLASH Test Page on ~A ~A</TITLE></HEAD>~
|
|
<BODY BGCOLOR='#eeeeff'>~
|
|
<H1>Test Page on ~2:*~A ~A</H1>~
|
|
<P>Hi!</P>~
|
|
</BODY>~
|
|
</HTML>"
|
|
(lisp-implementation-type)
|
|
(lisp-implementation-version))))
|
|
(start-http-listener 3080 *my-server*)
|
|
(initialize-clash)
|
|
(eval-when (:compile-toplevel :load-toplevel :execute) (disable-clash-syntax))
|