allow digits in the media subtype

audio/mp3 might be helpful

diff --git a/accept-specializer.lisp b/accept-specializer.lisp
index dee8a89d78feefc1eabce6a4fa552d2380c4f1e8..f8d55638432ac53f2acfd454b6290ce6aa41613c 100644 (file)
--- a/accept-specializer.lisp
+++ b/accept-specializer.lisp
@@ -65,7 +65,7 @@
           (result (make-accept-node :name nil)))
       (cl-ppcre:do-register-groups (type subtype qp q)
           ;; not desperately error-proof
-          ("([a-z]*|\\*)/([a-z]*|\\*)(;q=([01]\\.[0-9]*))?(,|$)" string result)
+          ("([a-z]*|\\*)/([a-z0-9]*|\\*)(;q=([01]\\.[0-9]*))?(,|$)" string result)
         (if qp
             (setf q (float (+ (digit-char-p (char q 0))
                               (/ (parse-integer q :start 2)