Apply OpenFeature style review fixes

Agent-Logs-Url: https://github.com/cl-sdk/io.github.cl-sdk.wst/sessions/9801b077-a57b-45cc-8fe7-99ea56807d5f

Co-authored-by: diasbruno <362368+diasbruno@users.noreply.github.com>

Author: Copilot

openfeature/package.lisp

@@ -126,7 +126,7 @@ Planned for later phases:
 
 (defun %ensure-context (context where)
   (unless (%plist-even-p context)
-    (error "~a must be a plist (even-length list)." where))
+    (error "~A must be a plist (even-length list)." where))
   context)
 
 (defun merge-evaluation-contexts (&rest contexts)

openfeature/routing.lisp

@@ -9,7 +9,9 @@
 (in-package #:io.github.cl-sdk.wst.openfeature.routing)
 
 (defun wrap-openfeature-context (&key
-                                   (context-fn (lambda (_request) nil))
+                                   (context-fn (lambda (request)
+                                                 (declare (ignore request))
+                                                 nil))
                                    (request-data-key :openfeature-evaluation-context))
   "Create a before-middleware that injects request-scoped OpenFeature context."
   (check-type request-data-key keyword)

t/openfeature-routing-tests.lisp

@@ -28,8 +28,8 @@
   (let* ((request (io.github.cl-sdk.wst.routing:make-request :uri "/" :method :GET))
          (response (io.github.cl-sdk.wst.routing:make-response))
          (middleware (wrap-openfeature-context
-                      :context-fn (lambda (_request)
-                                    (declare (ignore _request))
+                      :context-fn (lambda (request)
+                                    (declare (ignore request))
                                     '(:tenant "acme" :plan "pro"))))
          (result (funcall middleware request response)))
     (is (eq :continue (car result)))
@@ -42,8 +42,8 @@
            (request (io.github.cl-sdk.wst.routing:make-request :uri "/" :method :GET))
            (response (io.github.cl-sdk.wst.routing:make-response))
            (middleware (wrap-openfeature-context
-                        :context-fn (lambda (_request)
-                                      (declare (ignore _request))
+                        :context-fn (lambda (request)
+                                      (declare (ignore request))
                                       '(:tenant "acme" :shared :request)))))
       (set-provider provider)
       (funcall middleware request response)