diff options
| author | Coin Okay <cbeok@protonmail.com> | 2020-04-22 07:23:11 -0500 |
|---|---|---|
| committer | Coin Okay <cbeok@protonmail.com> | 2020-04-22 07:23:11 -0500 |
| commit | b8d69fcb7a156de7146be27d52066fc593a32628 (patch) | |
| tree | 74d3fb7bb78e5cc42485552190774fc32b33cf6a /lazybones.lisp | |
| parent | f98a51086ccb3e77b183bd4972dd3120fb531ffa (diff) | |
decoder lookup is more flexible
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)) |