From 8bcb8fb88f7039404e01eeac8814564062ecf350 Mon Sep 17 00:00:00 2001 From: Coin Okay Date: Wed, 22 Apr 2020 21:06:03 -0500 Subject: multipart/form-data decoder --- lazybones.lisp | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) (limited to 'lazybones.lisp') 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)) -- cgit v1.2.3