From ab7cb68963daef265eff8ebf9b20e0371221f810 Mon Sep 17 00:00:00 2001
From: HiPhish <hiphish@posteo.de>
Date: Sat, 1 Oct 2022 15:53:31 +0200
Subject: [PATCH] Add type declaration to reduce ambiguity

---
 src/hssg/artifacts/html.lisp | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/hssg/artifacts/html.lisp b/src/hssg/artifacts/html.lisp
index 369a8d6..328c827 100644
--- a/src/hssg/artifacts/html.lisp
+++ b/src/hssg/artifacts/html.lisp
@@ -70,6 +70,7 @@
                (node (plump:make-element
                        parent (normalize tag)
                        :children (plump:make-child-array (length tail)))))
+          (declare (type list tail))
           (set-attributes node attributes)
           ;; Children will be automatically added to NODE as a side effect
           (loop for child in tail when child do (sexp->plump-tree child node))