diff options
Diffstat (limited to 'src/endpoint.lisp')
| -rw-r--r-- | src/endpoint.lisp | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/src/endpoint.lisp b/src/endpoint.lisp index 52bce27..5c2a386 100644 --- a/src/endpoint.lisp +++ b/src/endpoint.lisp @@ -348,7 +348,12 @@ the ;." post-data :when= (http:raw-post-data :external-format :utf8 :want-stream (want-body-stream class)) - (funcall parser post-data))))) + (handler-case + (funcall parser post-data) + (error (e) + (protocol-error 'bad-body-error class + :wrapped e + :note "Error during the parsing of the body."))))))) (defun instantiate-endpoint (class args) |