summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--mulkcms.lisp12
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)))