init
This commit is contained in:
commit
643a332039
|
@ -0,0 +1,22 @@
|
||||||
|
(ql:quickload :woo)
|
||||||
|
(ql:quickload :flexi-streams)
|
||||||
|
|
||||||
|
|
||||||
|
(with-input-from-string (s "hahah 2333333")
|
||||||
|
(read-line s))
|
||||||
|
|
||||||
|
(woo:run
|
||||||
|
(lambda (env)
|
||||||
|
(print env)
|
||||||
|
(print (type-of env))
|
||||||
|
(if (eq :post (getf env :request-method))
|
||||||
|
(let* ((post-stream (getf env :raw-body))
|
||||||
|
(char-stream (flexi-streams:make-flexi-stream
|
||||||
|
post-stream
|
||||||
|
:external-format :utf-8)))
|
||||||
|
(format t (read-line char-stream))))
|
||||||
|
(format t "ret")
|
||||||
|
'(200 (:content-type "text/plain") ("Hello, World"))))
|
||||||
|
|
||||||
|
(type-of 1)
|
||||||
|
|
Loading…
Reference in New Issue