/examples/service-provider/server.lisp
http://github.com/skypher/cl-oauth · Lisp · 17 lines · 11 code · 6 blank · 0 comment · 0 complexity · 6a26c493977c12f1c9c6db386ddb1f8e MD5 · raw file
- (in-package :oauth)
- (export '(start-server stop-server))
- (defvar *server* nil)
- (defun start-server (&rest acceptor-args)
- (setf oauth:*request-adapter* (oauth:make-hunchentoot-request-adapter))
- (if *server*
- (warn "Server already started, doing nothing.")
- (hunchentoot:start (apply #'make-instance 'hunchentoot:acceptor acceptor-args))))
- (defun stop-server ()
- (when *server*
- (hunchentoot:stop *server*)))