From c70c000d7358ab2b3f36442f18d804cbd8177d1a Mon Sep 17 00:00:00 2001 From: paku Date: Wed, 5 Jun 2024 08:22:14 +0900 Subject: [PATCH] format --- src/element.lisp | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/src/element.lisp b/src/element.lisp index a7291a2..5e9f348 100644 --- a/src/element.lisp +++ b/src/element.lisp @@ -43,15 +43,15 @@ ;;;; factory (defun create-element (type props children) - (make-instance (cond ((functionp type) 'component) - ((eq type :<>) 'fragment) - ((eq type :html) 'html-tag) - ((keywordp type) 'tag) - (t (error "element-type must be either a keyword or a function."))) - :type type - :props props - :children (flatten children))) - + (make-instance + (cond ((functionp type) 'component) + ((eq type :<>) 'fragment) + ((eq type :html) 'html-tag) + ((keywordp type) 'tag) + (t (error "element-type must be a keyword or a function."))) + :type type + :props props + :children (flatten children))) (defun flatten (x) (labels ((rec (x acc) (cond ((null x) acc)