Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Branch: master
Fetching contributors…

Cannot retrieve contributors at this time

17 lines (12 sloc) 0.384 kB
(in-package #:hairball)
(defvar *hunchentoot-server* nil)
(defun start ()
(connect-to-database)
(setf *dispatch-table* (list #'default-dispatcher))
(loop for h in (reverse (get-action-handlers)) do (push h *dispatch-table*))
(setf *hunchentoot-server* (start-server :port 3000)))
(defun stop ()
(stop-server *hunchentoot-server*))
(defun -restart ()
(stop)
(start))
Jump to Line
Something went wrong with that request. Please try again.