diff options
| -rw-r--r-- | src/endpoint.lisp | 17 |
1 files changed, 10 insertions, 7 deletions
diff --git a/src/endpoint.lisp b/src/endpoint.lisp index 4f44a41..223c24a 100644 --- a/src/endpoint.lisp +++ b/src/endpoint.lisp @@ -163,12 +163,15 @@ the request's POST-PARAMETERS slot." (defvar *mimetype-parsers* (make-hash-table :test #'equal)) -(defun lookup-body-parser (type &key errorp) - (multiple-value-bind (parser extant) (gethash type *mimetype-parsers*) - (when errorp - (unless extant - (error "Body parser not found for mimethype ~s~%Try registering a parser with (REGISTER-BODY-PARSER ~s <yourparser>)" type type))) - parser)) +(defun lookup-body-parser (typestring &key errorp) + (let ((type (first (serapeum:split-sequence #\; typestring)))) + (multiple-value-bind (parser extant) (gethash type *mimetype-parsers*) + (when errorp + (unless extant + (error "Body parser not found for mimetype ~s +Try registering a parser with (REGISTER-BODY-PARSER ~s <yourparser>)" + type type))) + parser))) (defun register-body-parser (type function) "TYPE should be a string naming a mimetype. FUNCTION should be a @@ -209,7 +212,7 @@ matching regex." :with extractors := (copy-seq (route-extractors class)) :for part :in (ppcre:parse-string (route class)) :do (cond - ((stringp part) + ((or (stringp part) (characterp part)) (push part build-parts)) ((symbolp part) nil) ((and (listp part) |