From e514bcc629c4e24648bd04329b953cb1cbea7d54 Mon Sep 17 00:00:00 2001 From: Bo Yao Date: Wed, 25 Jul 2018 22:55:47 -0400 Subject: [PATCH] fix test after adding vector type --- src/util.lisp | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/src/util.lisp b/src/util.lisp index 334312a..79fc666 100644 --- a/src/util.lisp +++ b/src/util.lisp @@ -86,7 +86,8 @@ ((hash-table-p (first attrs-and-children)) (values (make-attrs :alist (hash-alist (first 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)) ((keywordp (first attrs-and-children)) (loop for thing on attrs-and-children by #'cddr @@ -100,7 +101,7 @@ (values (make-attrs :alist nil) (flatten 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)) (class (getf inline-attrs :class))) (multiple-value-bind (attrs children)