mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-06 10:40:45 -08:00
Code Issues Projects Releases Wiki Activity

set static root with a clean dir path

Browse source
This commit is contained in:
David Botton 2022-07-03 20:20:59 -04:00
parent 3edad73533
commit ae93722c32
3 changed files with 59 additions and 32 deletions
Download patch file Download diff file Expand all files Collapse all files

6
source/clog-system.lisp
View file

@ -98,9 +98,9 @@ optimization, see tutorial 12 for an example."
(set-on-new-window on-new-window-handler :path "/" :boot-file boot-file))
(unless *clog-running*
(setf *clog-running* t)
(setf *static-root* (if *overide-static-root*
*overide-static-root*
static-root))
(setf *static-root* (truename (if *overide-static-root*
*overide-static-root*
static-root)))
(clog-connection:initialize #'on-connect
:host host
:port port