diff options
| author | Miguel Ángel Moreno <mail@migalmoreno.com> | 2023-08-05 20:53:49 +0200 |
|---|---|---|
| committer | Miguel Ángel Moreno <mail@migalmoreno.com> | 2023-08-05 20:53:49 +0200 |
| commit | 77bc6db2b40eeee12c3a754fed91a5fb861236da (patch) | |
| tree | 27fccd7ebab07b8f9be052ae09dee65775f54627 | |
| parent | 5c14f168774630b581e905a8693aa5e548532998 (diff) | |
fix: Fix router composition
| -rw-r--r-- | router.lisp | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/router.lisp b/router.lisp index ab98087..8f000be 100644 --- a/router.lisp +++ b/router.lisp @@ -115,14 +115,13 @@ the current URL as argument, and can be given in a `format'-like syntax.")) (reverse (reduce (lambda (acc router) - (alex:if-let ((base (find (name router) acc :key #'name))) - (progn + (when (name router) + (let ((base (find (name router) acc :key #'name))) (dolist (slot (set-difference (mopu:slot-names (class-of base)) (mopu:direct-slot-names (class-of base)))) - (setf (slot-value router slot) (slot-value base slot))) - (cons router acc)) - (cons router acc))) + (setf (slot-value router slot) (slot-value base slot))))) + (cons router acc)) routers :initial-value '()))) (hooks:add-hook (nyxt:request-resource-hook buffer) |