/examples/service-provider/server.lisp

 1
 2(in-package :oauth)
 3
 4(export '(start-server stop-server))
 5
 6(defvar *server* nil)
 7
 8(defun start-server (&rest acceptor-args)
 9  (setf oauth:*request-adapter* (oauth:make-hunchentoot-request-adapter))
10  (if *server*
11    (warn "Server already started, doing nothing.")
12    (hunchentoot:start (apply #'make-instance 'hunchentoot:acceptor acceptor-args))))
13
14(defun stop-server ()
15  (when *server*
16    (hunchentoot:stop *server*)))
17