Change from MK-DEFSYSTEM to ASDF, rename .cl to .lisp files.
This commit is contained in:
12
examples/silly-test.lisp
Normal file
12
examples/silly-test.lisp
Normal file
@ -0,0 +1,12 @@
|
||||
(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)
|
||||
Reference in New Issue
Block a user