diff options
| -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)) |