16 lines
657 B
Common Lisp
16 lines
657 B
Common Lisp
;;(eval-when (:compile-toplevel :load-toplevel :execute) (require "clash"))
|
|
(cl:defpackage #:clash-bench (:use #:cl #:clash))
|
|
(cl:in-package :clash-bench)
|
|
|
|
(eval-when (:compile-toplevel :load-toplevel :execute) (enable-clash-syntax))
|
|
(defvar *my-server* (make-instance 'http-server/1.0))
|
|
|
|
(apply #'export-files *my-server* "image/gif" #u"/img/" (directory "*.gif"))
|
|
(apply #'export-files *my-server* "image/jpeg" #u"/img/" (directory "*.jpg"))
|
|
(apply #'export-files *my-server* "text/html" #u"/" (directory "*.html"))
|
|
|
|
(start-http-listener 3080 *my-server*)
|
|
(initialize-clash)
|
|
|
|
(eval-when (:compile-toplevel :load-toplevel :execute) (disable-clash-syntax))
|