From: Christophe Rhodes <csr21@cantab.net>
Date: Tue, 17 Dec 2013 12:17:27 +0000 (+0000)
Subject: allow digits in the media subtype
X-Git-Tag: els2014-submission~20
X-Git-Url: http://christophe.rhodes.io/gitweb/?a=commitdiff_plain;h=597cb575ab8071270bb6928fba4235d5d635d795;p=specializable.git

allow digits in the media subtype

audio/mp3 might be helpful
---

diff --git a/accept-specializer.lisp b/accept-specializer.lisp
index dee8a89..f8d5563 100644
--- 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)