|
|
@ -49,7 +49,9 @@ Use cl-rng to pick a random page from the lolibooru API"
|
|
|
|
(defun configure ()
|
|
|
|
(defun configure ()
|
|
|
|
(setf *serb* (make-instance 'hunchentoot:easy-acceptor
|
|
|
|
(setf *serb* (make-instance 'hunchentoot:easy-acceptor
|
|
|
|
:port (config-item :port)
|
|
|
|
:port (config-item :port)
|
|
|
|
|
|
|
|
:address (config-item :host)
|
|
|
|
:document-root (config-item :document-root)
|
|
|
|
:document-root (config-item :document-root)
|
|
|
|
|
|
|
|
:error-template-directory (config-item :error-root)
|
|
|
|
;; We (eval) these because quoting streams is werid.
|
|
|
|
;; We (eval) these because quoting streams is werid.
|
|
|
|
;; '*standard-ouput* is not of type stream why?
|
|
|
|
;; '*standard-ouput* is not of type stream why?
|
|
|
|
:access-log-destination (eval (config-item :access-log))
|
|
|
|
:access-log-destination (eval (config-item :access-log))
|
|
|
|