From c0e70f0faeb20e64b0c388c5675b51d17fa3856a Mon Sep 17 00:00:00 2001
From: Shaka Chen <scchen@shaka.today>
Date: Wed, 27 Jul 2022 09:51:08 +0800
Subject: [PATCH] used *clog-auth-key* for consistency in clog-auth.lisp

---
 source/clog-auth.lisp | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/source/clog-auth.lisp b/source/clog-auth.lisp
index c70b66e..c71453c 100644
--- a/source/clog-auth.lisp
+++ b/source/clog-auth.lisp
@@ -75,10 +75,10 @@ for CLOG")
   (check-type body clog-body)
   (set-on-storage (window body) (lambda (obj data)
                                   (declare (ignore obj))
-                                  (set-on-storage (window body) nil)
-                                  (when (equalp (getf data :key)
-                                                "clog-auth-token")
-                                    (funcall handler body)))))
+				  (set-on-storage (window body) nil)
+				  (when (equalp (getf data :key)
+						*clog-auth-key*)
+				    (funcall handler body)))))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Implementation - clog-auth - Authorization