git.pond.sub.org Git - eow/blob - setup.lisp

   1 (asdf:oos 'asdf:load-op "eow")
   2 ;(mb:load "eow")
   3 (setf hunchentoot:*message-log-pathname* "/tmp/hunchentoot-message.log")
   4 (setf hunchentoot:*access-log-pathname* "/tmp/hunchentoot-access.log")
   5 (setf *webserver*
   6       (hunchentoot:start (make-instance 'hunchentoot:acceptor :port 4242)))
   7 ;; (hunchentoot:stop-server *webserver*)
   8 ;(setf hunchentoot:*show-lisp-backtraces-p* t)
   9 (setf hunchentoot:*show-lisp-errors-p* t)
  10 (empire-web:start)
  11 ;(setf *break-on-signals* 'error)
  12 ;(setf *break-on-signals* nil)