diff options
Diffstat (limited to 'lazybones.lisp')
-rw-r--r-- | lazybones.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lazybones.lisp b/lazybones.lisp index feee92a..ade6c1f 100644 --- a/lazybones.lisp +++ b/lazybones.lisp @@ -60,7 +60,7 @@ definition." 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 #'string-equal))) + (if-let ((decoder (assoc content-type *decoders* :test (lambda (ct key) (starts-with-subseq key ct))))) (funcall (cdr decoder) stream content-length) stream)) |