use (or form-1 form-2) instead of (if form-1 form-1 form-2)

This commit is contained in:
Shaka Chen 2022-08-08 11:54:53 +08:00
parent 47804e2b7b
commit 6087155fa8

View file

@ -97,8 +97,7 @@ example."
(set-on-new-window on-new-window-handler :path "/" :boot-file boot-file))
(unless *clog-running*
(setf *clog-running* t)
(setf *static-root* (truename (if *overide-static-root*
*overide-static-root*
(setf *static-root* (truename (or *overide-static-root*
static-root)))
(clog-connection:initialize #'on-connect
:host host