From 6087155fa89c84101503779e654c2bbe4e28269f Mon Sep 17 00:00:00 2001
From: Shaka Chen <scchen@shaka.today>
Date: Mon, 8 Aug 2022 11:54:53 +0800
Subject: [PATCH] use (or form-1 form-2) instead of (if form-1 form-1 form-2)

---
 source/clog-system.lisp | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/source/clog-system.lisp b/source/clog-system.lisp
index a08fc96..553f358 100644
--- a/source/clog-system.lisp
+++ b/source/clog-system.lisp
@@ -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