From ff535d7f4819ef36441460b7ea8220aa1d704e3b Mon Sep 17 00:00:00 2001 From: colin 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(-) 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