diff options
| author | colin <colin@cicadas.surf> | 2024-10-19 14:13:35 -0700 |
|---|---|---|
| committer | colin <colin@cicadas.surf> | 2024-10-19 14:13:35 -0700 |
| commit | ff535d7f4819ef36441460b7ea8220aa1d704e3b (patch) | |
| tree | f3f53882bb8064315090322abbcbb2372e0afe84 | |
| parent | 1872584975829a68ab95d6b4adf1aabbd896ebc2 (diff) | |
Fix PROTOCOL-ERROR condition constructor
| -rw-r--r-- | src/protocol.lisp | 4 |
1 files 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)) |