From b8d69fcb7a156de7146be27d52066fc593a32628 Mon Sep 17 00:00:00 2001
From: Coin Okay <cbeok@protonmail.com>
Date: Wed, 22 Apr 2020 07:23:11 -0500
Subject: decoder lookup is more flexible

---
 lazybones.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lazybones.lisp')

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))
 
-- 
cgit v1.2.3