diff options
Diffstat (limited to 'new-account.lisp')
| -rw-r--r-- | new-account.lisp | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/new-account.lisp b/new-account.lisp index 93cf122..b0ccae7 100644 --- a/new-account.lisp +++ b/new-account.lisp @@ -52,9 +52,9 @@ (set-on-click submit (thunk* - (if (loop for status in (list pw-confirm-status name-status invite-status) - always (string-equal "✔" (value status))) - (if (use-invite-with-code (value invite) (value name) (value pw)) - (setf (url (location body)) "/login") - (alert (window body) "An error occurred while making your account.")) - (alert (window body) "Plase double check your inputs.")))))) + (if (loop for status in (list pw-confirm-status name-status invite-status) + always (string-equal "✔" (text status))) + (if (use-invite-with-code (value invite) (value name) (value pw)) + (setf (url (location body)) "/login") + (alert (window body) "An error occurred while making your account.")) + (alert (window body) "Plase double check your inputs.")))))) |