mirror of
https://github.com/vale981/lack
synced 2025-03-05 09:21:39 -05:00
28 lines
783 B
Common Lisp
28 lines
783 B
Common Lisp
(in-package :cl-user)
|
|
|
|
(ql:quickload '(:clack :cl-ppcre))
|
|
|
|
(defpackage lack-benchmark.clack
|
|
(:use :cl
|
|
:clack.middleware.session
|
|
:clack.middleware.static
|
|
:clack.middleware.backtrace))
|
|
(in-package :lack-benchmark.clack)
|
|
|
|
(clack:clackup
|
|
(clack.builder:builder
|
|
(<clack-middleware-static>
|
|
:path (lambda (path)
|
|
(if (ppcre:scan "^(?:/images/|/css/|/js/|/robot\\.txt$|/favicon.ico$)" path)
|
|
path
|
|
nil))
|
|
:root (asdf:system-relative-pathname :lack #P"data/"))
|
|
<clack-middleware-backtrace>
|
|
<clack-middleware-session>
|
|
(lambda (env)
|
|
(declare (ignore env))
|
|
'(200 (:content-type "text/plain; charset=utf-8") ("Hello, World"))))
|
|
:server :hunchentoot
|
|
:debug nil
|
|
:use-thread nil
|
|
:use-default-middlewares nil)
|