;;; ~/common-home/workspace/hunchentoot/srv.lisp

(in-package "CL-USER")

(asdf:load-system :hunchentoot)
(asdf:load-system :drakma)

(setq tbnl:*catch-errors-p* nil)

(tbnl:start (make-instance
             'tbnl:acceptor
             :document-root nil
             :error-template-directory nil
             :address "127.0.0.1"
             :port 50000))

(write (drakma:http-request "http://127.0.0.1:50000"))
