Reqest access
Requesting access so you can see the code I've added and maybe point out my mistakes. I'll post it below for now:
;; Runs a woo http server listening on port 500 (woo:run (lambda (env) ;;The cond just shows some simple routing and output. (cond ((equalp (getf env :REQUEST-URI) "/test") (list 200 (list :content-type "text/plain") (list (format nil "Hello, World - ~A" (getf env :REQUEST-URI))))) ((equalp (getf env :REQUEST-URI) "/myroute") (list 200 (list :content-type "text/plain") (list (format nil "Hello, Chris - ~A" (getf env :REQUEST-URI))))) (t (list 200 (list :content-type "text/plain") (list (format nil "~S" env)))))) ;;For docker you need to bind to 0.0.0.0 and not 127.0.0.1 ;;google it for more info :address "0.0.0.0" :port 5000)
Thanks!!