From a745a5bd2f69960a891c528a7387ddff0142d3ed Mon Sep 17 00:00:00 2001
From: free-kingdom <127470400+free-kingdom@users.noreply.github.com>
Date: Thu, 17 Aug 2023 17:10:14 +0800
Subject: [PATCH] fix clog-auth.lisp get-authentication-token

---
 source/clog-auth.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/source/clog-auth.lisp b/source/clog-auth.lisp
index 10855c3..810890c 100644
--- a/source/clog-auth.lisp
+++ b/source/clog-auth.lisp
@@ -48,7 +48,7 @@ for CLOG")
       (setf token nil))
     (unless token
       (when auth-path
-        (url-assign (window body) auth-path)))
+        (url-assign (location body) auth-path)))
     token))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;