From ff535d7f4819ef36441460b7ea8220aa1d704e3b Mon Sep 17 00:00:00 2001
From: colin <colin@cicadas.surf>
Date: Sat, 19 Oct 2024 14:13:35 -0700
Subject: Fix PROTOCOL-ERROR condition constructor

---
 src/protocol.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/protocol.lisp')

diff --git a/src/protocol.lisp b/src/protocol.lisp
index 3bbe983..f88ec1e 100644
--- a/src/protocol.lisp
+++ b/src/protocol.lisp
@@ -89,8 +89,8 @@ that the request has insufficient permissions to evoke the endpoint handler. "))
 (defun protocol-error (error-class ep &rest kwargs)
   (apply #'error
          error-class
-         :raw-request http:*request*
-         :class (class-of ep)
+         :raw-request (and (boundp 'http:*request*) http:*request*)
+         :class ep
          kwargs))
 
 
-- 
cgit v1.2.3