diff options
| -rw-r--r-- | mulkcms.lisp | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/mulkcms.lisp b/mulkcms.lisp index 802fbba..4cf1473 100644 --- a/mulkcms.lisp +++ b/mulkcms.lisp @@ -1033,12 +1033,12 @@ (defun find-request-handler (path params) (let ((*requested-characteristics* - (append (when-let (langstr (or (cdr (assoc "lang" params :test #'equal)) - (cdr (assoc "hl" params :test #'equal)))) - (let ((langs (split-sequence #\| langstr))) - (mapcar (lambda (x) (list (cons "language" x))) - langs))) - *default-characteristics-precedence-list*)) + (or (when-let (langstr (or (cdr (assoc "lang" params :test #'equal)) + (cdr (assoc "hl" params :test #'equal)))) + (let ((langs (split-sequence #\| langstr))) + (mapcar (lambda (x) (list (cons "language" x))) + langs))) + *default-characteristics-precedence-list*)) (*propagated-params* (remove-if-not (lambda (x) (equal (car x) "lang")) params))) |