remove benchmark
This commit is contained in:
parent
da3cd68519
commit
72b0312b81
10
server.lisp
10
server.lisp
|
@ -48,15 +48,7 @@
|
||||||
(defparameter +dispatch-table+
|
(defparameter +dispatch-table+
|
||||||
`(("^/$" ,#'route-hello-world)
|
`(("^/$" ,#'route-hello-world)
|
||||||
(,(concatenate 'string "^" +static-prefix+ ".*$") ,#'serve-static-file)
|
(,(concatenate 'string "^" +static-prefix+ ".*$") ,#'serve-static-file)
|
||||||
("^/binary$"
|
(nil ,#'route-not-found)))
|
||||||
,(lambda (env)
|
|
||||||
(declare (ignore env))
|
|
||||||
`(200
|
|
||||||
(:content-type "text/plain")
|
|
||||||
,(make-array 3 :element-type '(unsigned-byte 8)
|
|
||||||
:initial-contents '(51 52 53)))))
|
|
||||||
(nil nil)))
|
|
||||||
;;(nil ,#'route-not-found)))
|
|
||||||
|
|
||||||
(require :sb-sprof)
|
(require :sb-sprof)
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue