marcuskammer/cl-hssg
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add type declaration to reduce ambiguity

Browse source
This commit is contained in:
HiPhish 2022-10-01 15:53:31 +02:00
parent f4d8550877
commit ab7cb68963
1 changed files with 1 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
src/hssg/artifacts/html.lisp
View file

@ -70,6 +70,7 @@
(node (plump:make-element (node (plump:make-element
parent (normalize tag) parent (normalize tag)
:children (plump:make-child-array (length tail))))) :children (plump:make-child-array (length tail)))))
(declare (type list tail))
(set-attributes node attributes) (set-attributes node attributes)
;; Children will be automatically added to NODE as a side effect ;; Children will be automatically added to NODE as a side effect
(loop for child in tail when child do (sexp->plump-tree child node)) (loop for child in tail when child do (sexp->plump-tree child node))