Extract get-table from get-table-entry. Maintain fill pointer at last entry.
[eow] / setup.lisp
1 (mb:load "eow")
2 (setf hunchentoot:*message-log-pathname* "/tmp/hunchentoot-message.log")
3 (setf hunchentoot:*access-log-pathname* "/tmp/hunchentoot-access.log")
4 (setf *webserver*
5       (hunchentoot:start (make-instance 'hunchentoot:acceptor :port 4242)))
6 ;; (hunchentoot:stop-server *webserver*)
7 ;(setf hunchentoot:*show-lisp-backtraces-p* t)
8 (setf hunchentoot:*show-lisp-errors-p* t)
9 (empire-web:start)
10 ;(setf *break-on-signals* 'error)
11 ;(setf *break-on-signals* nil)