paku/hsx
1
0
Fork 0
Code Issues Pull requests Projects Releases 1 Packages Wiki Activity Actions

fix test after adding vector type

Browse source
This commit is contained in:
Bo Yao 2018-07-25 22:55:47 -04:00
parent 008fca8ed7
commit e514bcc629
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/util.lisp
View file

@ -86,7 +86,8 @@
((hash-table-p (first attrs-and-children)) ((hash-table-p (first attrs-and-children))
(values (make-attrs :alist (hash-alist (first attrs-and-children))) (values (make-attrs :alist (hash-alist (first attrs-and-children)))
(flatten (rest attrs-and-children)))) (flatten (rest attrs-and-children))))
((vectorp (first attrs-and-children)) ((and (vectorp (first attrs-and-children))
(keywordp (aref (first attrs-and-children) 0)))
(append-inline-attrs attrs-and-children)) (append-inline-attrs attrs-and-children))
((keywordp (first attrs-and-children)) ((keywordp (first attrs-and-children))
(loop for thing on attrs-and-children by #'cddr (loop for thing on attrs-and-children by #'cddr
@ -100,7 +101,7 @@
(values (make-attrs :alist nil) (flatten attrs-and-children))))) (values (make-attrs :alist nil) (flatten attrs-and-children)))))
(defun append-inline-attrs (attrs-and-children) (defun append-inline-attrs (attrs-and-children)
(let* ((inline-attrs (coerce (first attrs-and-children 'list))) (let* ((inline-attrs (coerce (first attrs-and-children) 'list))
(id (getf inline-attrs :id)) (id (getf inline-attrs :id))
(class (getf inline-attrs :class))) (class (getf inline-attrs :class)))
(multiple-value-bind (attrs children) (multiple-value-bind (attrs children)