Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (defvar *response* NIL)
- (setf hunchentoot:*dispatch-table* (list #'handler))
- (hunchentoot:start (make-instance 'hunchentoot:easy-acceptor :port 4545))
- (defun handler (request)
- (let ((*response* "Hello World!"))
- (lambda () *response*)))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement