diff options
Diffstat (limited to 'lazybones.lisp')
-rw-r--r-- | lazybones.lisp | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/lazybones.lisp b/lazybones.lisp index e762f03..f26e87a 100644 --- a/lazybones.lisp +++ b/lazybones.lisp @@ -44,16 +44,15 @@ definition." *decoders*))) - - (defun decode-body (stream content-type content-length) "Decodes the body according to the Content-Type header. If no matching decoder is found in the *DECODERS* ALIST, then the STREAM itself is returned unaltered. " - (if-let ((decoder (assoc content-type *decoders* :test (lambda (ct key) (starts-with-subseq key ct))))) - (funcall (cdr decoder) stream content-length) + (if-let ((decoder (assoc content-type *decoders* + :test (lambda (ct key) (starts-with-subseq key ct))))) + (funcall (cdr decoder) stream content-type content-length) stream)) |