From 8b0e494da9d41886bcd1d0c87f1055b2f47277cd Mon Sep 17 00:00:00 2001 From: Glenn Thompson Date: Fri, 14 Nov 2025 12:40:54 +0300 Subject: [PATCH] fix: Replace undefined uri-path with radiance:path The previous commit used uri-path() which doesn't exist in Radiance. This caused 'The function ASTEROID::URI-PATH is undefined' errors when trying to authenticate. Changed to use radiance:path() which is the correct Radiance API function for extracting the path component from a URI object. Fixes authentication in both require-authentication and require-role. --- user-management.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/user-management.lisp b/user-management.lisp index c7f4737..f27effd 100644 --- a/user-management.lisp +++ b/user-management.lisp @@ -175,7 +175,7 @@ If :api t, returns JSON error (401). Otherwise redirects to login page. Auto-detects API routes if not specified." (let* ((user-id (session:field "user-id")) - (uri (uri-path (radiance:uri *request*))) + (uri (radiance:path (radiance:uri *request*))) ;; Use explicit flag if provided, otherwise auto-detect from URI (is-api-request (if api t (search "/api/" uri)))) (format t "Authentication check - User ID: ~a, URI: ~a, Is API: ~a~%" @@ -202,7 +202,7 @@ If :api t, returns JSON error (403). Otherwise redirects to login page. Auto-detects API routes if not specified." (let* ((current-user (get-current-user)) - (uri (uri-path (radiance:uri *request*))) + (uri (radiance:path (radiance:uri *request*))) ;; Use explicit flag if provided, otherwise auto-detect from URI (is-api-request (if api t (search "/api/" uri)))) (format t "Current user for role check: ~a~%" (if current-user "FOUND" "NOT FOUND"))