mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-06 02:30:42 -08:00
Code Issues Projects Releases Wiki Activity

fixed a parenthesis mistake

Browse source
This commit is contained in:
Shaka Chen 2022-06-03 17:19:28 +08:00
parent e8ca5d4a2e
commit 9333f5c295
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
source/clog-web-dbi.lisp
View file

@ -158,9 +158,9 @@ if one is present and login fails."
sql-connection
"select username, password from users where username=?")
(list (getf (profile (get-web-site body)) :|username|))))))
(cond (and contents
(cl-pass:check-password (form-result result "oldpass")
(getf (car contents) :|password|)))
(cond ((and contents
(cl-pass:check-password (form-result result "oldpass")
(getf (car contents) :|password|)))
(dbi:do-sql
sql-connection
(sql-update