From 0930fc2c1c0edf213042709e31075a9d8032b26a Mon Sep 17 00:00:00 2001 From: Luis Pereira Date: Sun, 19 Oct 2025 23:04:36 +0100 Subject: [PATCH] fix: retry user initialization --- user-management.lisp | 19 +++++++++++-------- 1 file changed, 11 insertions(+), 8 deletions(-) diff --git a/user-management.lisp b/user-management.lisp index 09532a8..59ed4b6 100644 --- a/user-management.lisp +++ b/user-management.lisp @@ -282,12 +282,15 @@ ;; Fallback to delayed initialization (bt:make-thread (lambda () - (sleep 3) ; Give database more time to initialize - (handler-case - (progn - (format t "Retrying user management setup...~%") - (create-default-admin) - (format t "User management initialization complete.~%")) - (error (e) - (format t "Error initializing user system: ~a~%" e)))) + (dotimes (a 5) + (unless (db:connected-p) + (sleep 3)) ; Give database more time to initialize + (handler-case + (progn + (format t "Retrying user management setup...~%") + (create-default-admin) + (format t "User management initialization complete.~%") + (return)) + (error (e) + (format t "Error initializing user system: ~a~%" e))))) :name "user-init"))))