fix clog-auth.lisp get-authentication-token

This commit is contained in:
free-kingdom 2023-08-17 17:10:14 +08:00 committed by GitHub
parent 6302deb6e6
commit a745a5bd2f
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23

View file

@ -48,7 +48,7 @@ for CLOG")
(setf token nil)) (setf token nil))
(unless token (unless token
(when auth-path (when auth-path
(url-assign (window body) auth-path))) (url-assign (location body) auth-path)))
token)) token))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;