From 597cb575ab8071270bb6928fba4235d5d635d795 Mon Sep 17 00:00:00 2001 From: Christophe Rhodes Date: Tue, 17 Dec 2013 12:17:27 +0000 Subject: [PATCH] allow digits in the media subtype audio/mp3 might be helpful --- accept-specializer.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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) -- 2.30.2