diff --git a/README.md b/README.md index 2623fec..ba9b66a 100644 --- a/README.md +++ b/README.md @@ -1,6 +1,6 @@ # HSX -HSX (Hypertext S-expression) is a simple and powerful HTML5 generation library for Common Lisp, forked from [flute](https://github.com/ailisp/flute/), originally created by Bo Yao. +HSX (Hypertext S-expression) is a simple yet powerful HTML5 generation library for Common Lisp, forked from [flute](https://github.com/ailisp/flute/), originally created by Bo Yao. ## Introduction diff --git a/src/element.lisp b/src/element.lisp index caa14bd..0d84509 100644 --- a/src/element.lisp +++ b/src/element.lisp @@ -52,6 +52,7 @@ :type type :props props :children (flatten children))) + (defun flatten (x) (labels ((rec (x acc) (cond ((null x) acc)