fix: retry user initialization

user-management.lisp

@@ -282,12 +282,15 @@
       ;; Fallback to delayed initialization
       (bt:make-thread 
        (lambda ()
-         (sleep 3) ; Give database more time to initialize
+         (dotimes (a 5)
-         (handler-case
+           (unless (db:connected-p)
-             (progn
+             (sleep 3)) ; Give database more time to initialize
-               (format t "Retrying user management setup...~%")
+           (handler-case
-               (create-default-admin)
+               (progn
-               (format t "User management initialization complete.~%"))
+                 (format t "Retrying user management setup...~%")
-           (error (e)
+                 (create-default-admin)
-             (format t "Error initializing user system: ~a~%" e))))
+                 (format t "User management initialization complete.~%")
+                 (return))
+             (error (e)
+               (format t "Error initializing user system: ~a~%" e)))))
        :name "user-init"))))